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COPYRIGHT NOTICE 



Most computer programs have been submitted for protection under the same United States Copyright 
Laws that protect other tyoes of publications. 

CDS Corporation is a “publisher” of these materials under a variety of contracts with third-party authors 
and copyright owners. 

It is a violation of the law to reproduce these materials for any purpose other than personal convenience, 
or for any purpose at all that would prevent the copyright owner from fully realizing his due benefits under 
the terms and provisions of the contract agreements. 

In plain words, you cannot resell these programs to any other person, you cannot distribute 
copies of these programs to any other person, school, user group, business, etc. and you cannot 
conduct any sort of a commercial activity that uses these programs as a part of your business. 

Face it - if you pirate these programs or let someone else pirate these programs, you are depriving other 
individuals of their deserved income. Look at it this way -- if the software is good enough to copy, it’s 
good enough to pay for. Please send any questions about this to CDS Corp., 550 North Main Street, 
Logan, Utah 84321 or phone (801) 753-6990. 



© Copyright CDS Corp., 1 979 
All Rights Reserved 



Although we believe these programs to be accurate, no representation is made or is to be implied as to the 
suitability, accuracy or fitness of any of the programs for any particular purpose. CDS Corp. shall not be 
liable for incidental or consequential damages resulting from the use of, performance of or supply of these 
programs. 
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THE STORY OF APPLE BARREL 



Once upon a time, there was a great, wonderful and wise Apple Barrel that 
people would consult about business problems, school lesson, family finances and 
even play games with. (Who says you can’t have a run-on sentence end with a 
preposition - or - proposition as the case may be?) This Apple Barrel was a great 
community resource and everyone loved it. 

But as is so often the case, some bad person comes along who screws up a 
good thing for everybody. And so it was. A bad person named Turkey Rascal 
Snidely* (80 years old) came along, stole the Apple Barrel and hid it deep in a 
mountainside. Many years went by . . . until one day a good person, named Wilford 
Oscar Zuchini*, came along and freed the Apple Barrel. 

We have been able to capture some of the wit and wisdom of the Apple Barrel in 
this software. Your next question is, of course, “Gee, where is this wonderful Apple 
Barrel?” Well, the Apple Barrel is alive and well in Burbank, California. If you believe 
that, we’ve got some land in Florida that we’d like to talk to you about. Enjoy your 
programs. 



'These names have been changed to protect the innocent and the not-so-innocent. 
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Software Specifications & Overview 

All Apple Barrel programs in Bushel #1 are written in Applesoft. The minimum 
recommended configuration is either a 16K Apple with a cassette tape player or a 
32K Apple with a disk drive. The software will run on either an Apple II or an Apple II 
Plus. 

Bushel #1 provides a variety of software for the new owner as well as the 
veteran. All of the programs can be listed and modified. The utilities can be included 
in your own programs. These programs have been written by some of the best talent 
in the “Apple Basket” and we know you’ll enjoy and appreciate some of the unusual 
techniques. Like one gentleman who said the programs were a “pretty good buy” at 
$24.95--after talking with him a little longer, we realized that he thought the prog- 
rams were $24.95 per program. We told him that all 25 were $29.95 for the disk 
version and he literally ran to get his checkbook. We still have the feeling that he 
thinks we’re a little crazy to sell such good software at such a great price. Maybe he’s 
right (but we sure smile a lot). 



Loading Apple Barrel From Disk 

Follow these instructions to load from disk: 

1. Insert the disk into the disk drive. 

2. Boot as you usually do. 

3. That’s all you need to do, as you can see. 



Loading Apple Barrel From Tape 

Follow these instructions to load from tape: 

1 . Enter Basic as you usually do, if you are not already in Basic. 

2. Press the rewind button on your tape player and completely rewind the tape. 

3. Type LOAD, press the Play button on your tape player, then press 
RETURN. After a few seconds, the Apple will beep and load the first 
program. 

4. When the program is loaded, the Apple will beep again and display a 
flashing cursor. Stop your tape player. Type RUN, then press RETURN. 

5. Watch the beginning display. Press any key to stop the display. 
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6. To load the MENU program, type LOAD, press PLAY on your tape player, 
then press RETURN. After a few seconds your Apple will beep and load 
your program. When your program is loaded, the Apple will beep and 
display a flashing cursor. Type RUN, press RETURN and your MENU 
program will appear. Follow the MENU prompts. 

7. When your selected program is loaded, type RUN, press RETURN and 
enjoy your program. 



What To Try When It Doesn’t Load 

1 . Check all cords, boards, etc. Wiggle everything, carefully! 

2. Try different settings of your tone and/or volume controls on your tape player. 

3. You may have gotten a glitch from a large fluctuation in electrical current. Try to 
load again. 

4. Remove the cable from the earphone jack of your tape player and play the 
tape. You should be able to hear the leader tones and the digital program 
sound. If you don’t, your tape deck may be faulty. Try a different tape deck. 

5. Try some other software that you have run recently. If it doesn’t run, your Apple 
has problems. Try the various things you usually try. Read your Apple manual. 
Send out for Pizza ... at least your stomach will be happy (unless you don’t 
like Pizza- Chinese food anyone?) 

6. Call your local computer dealer. He’ll be glad to help you. If everything but the 
tape or disk works, bring it in and trade it. That is our policy-we stand behind all 
of our products. 



3 




MORTGAGE LOAN 



Description: Mortgage Loan will compute the various factors of a loan, including 
payment amount, interest rate, number of payments, amount of loan, total amount 
paid and total interest paid. 

Instructions: To use Mortgage Loan, select Block 1 from the Master Menu. This will 
load Mortgage Loan, Days Between Dates and Calendar. These programs have 
been included in a single block so that you can quickly pull the programs from RAM 
and thus refer quickly from one to the other in making your financial calculations and 
decisions. In using Mortgage Loan or the other programs, Apple Barrel will automati- 
cally supply the “$” symbol where appropriate. If you add a comma, Applesoft will 
ignore anything after the comma, so do not use commas. As you may discover, if you 
enter a letter instead of a number, Applesoft will ignore the letter(s) and all that 
follows the letter(s). If the numbers that you enter do not compute, Apple Barrel will 
automatically switch you back to the Mortgage Loan menu and display at the top of 
the screen “ERROR ** DOES NOT COMPUTE”. At that point you may select an 
option from the Mortgage Loan menu and continue. For example, if you try to 
compute the number of payments you need to pay off a $40,000 loan @ 1 6% A.P. R. 
@ $500.00 per month, Apple Barrel will switch you back to the Mortgage Loan menu 
and give you the error message. 

Comments: To show you the effect of larger payments, take $40,000.00 @ 16% 
A.P.R. - this can be amortized in 165 payments of $600.00 or 504 payments of 
$534.00. Mortgage Loan is guaranteed to terrify you as you calculate a 30 year loan 
of $75,000.00 at 18%. If the monthly payments don’t scare you, look at the total 
amount that you will pay the bank in 30 years. Guaranteed to make strong men (and 
women) faint.' 

Space for User Notes: 
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DAYS BETWEEN DATES 



Description: Days Between Dates calculates the number of days between two 
dates (just as you thought, right?). 

Instructions: To load, select Block 1 and choose the Days Between Dates option. 
Then choose Option 1 from the next menu. Enter the first date using the following 
format: 2,25,1961 . Then enter the second date. If you get a “??” response, press 
RETURN and follow the instructions on the screen. To return to the Block 1 menu, 
choose Option 3. 

Comments: The calendar was adjusted in 1 582 A.D. (it was adjusted by someone 
else -- we weren’t there -- we’re clever but not that cleveF -- but we’re working on it), 
so you should try dates after that time. If you have a genuine need to work with Days 
Between Dates in years before 1 582, we’d like to know what you’re up to. 

• 

Flash! We have just been given the first example of using Days Between Dates in 
years before 1582 A.D. The example is told to us as follows: If I have an ancestor 
born July 23, 1 423 A.D. who dies April 11,1 477 A.D. -- how old was he when he was 
destroyed by the Mongol hordes as they overran his village? Well, we took our cue 
from Mr. Abbot (Mr. Farnworth’s personal private executive secretary in the movie 
"Heaven Can Wait”) who replied in the following way to a similar question: "I think 
you’d have to define the word destroy.” This seemed to confuse and irritate our 
historian (it didn’t work in the movie either) and so we said, "Add 300 years to each 
date. That will give you the answer of 19627 days and all you have to do is divide 
19627 by 365 and you have the number of years that your ancestor lived.” Of 
course, there is a much faster way of doing it, but as any software house knows, the 
first thing people do with a program is look for holes, bugs and gaps. You’d never do 
that would you? 

Space for User Notes: 
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CALENDAR 



Description: Calendar will tell you what day of the week a particular date, such as 
yourbirthdate, is on. 

Instructions: To load, select Block 1 from the Master Menu and choose the 
Calendar option. Then choose Option 2 to run the Calendar program. Enter dates in 
the following manner: 2,25,1961. If you get a “??” response, press RETURN and 
follow the instructions. 

Comments: If Saturday Nite Live stays on Saturday nites and continues for another 
50 years (can you see John Belushi at the age of 84?) it will have the curious 
experience of being on TV on the day 2,2,2222 — i.e. February 2, in the year 2,222. 
Just thought you’d like to know. By the way, in case you didn’t know, the comments 
section of this manual is totally optional. In fact, the whole manual is optional. 
Actually, the whole computer is optional, but you know that, we hope. Let us move 
on. 

Space for User Notes: 



ADDITION, SUBTRACTION, MULTIPLICATION, DIVISION 

Description: The math programs are simple, quick and fun for the right people. 
When you answer 5 correctly, the difficulty increases. One of the best uses we have 
seen for these programs is to use them as a model for individual instruction 
programs written specifically for a particular learning situation. 

Instructions: To load any one of these four math programs, simply select Block 2 
from the master Menu. You may then select the math programs you want to run. 

Comments: As various public personalities say on occasion, “No Comment.” 

Space for User Notes: 
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METRIC CONVERSION 



Description: Metric Conversion is very appropriately named. You can use these 14 
conversion options: 

1. Centimeters to Inches 

2. Inches to Centimeters 

3. Meters to Feet 

4. Feet to Meters 

5. Kilometers to Miles 

6. Miles to Kilometers 

7. Degrees (C) to Degrees (F) 

8. Degrees (F) to Degrees (C) 

9. Liters to Ounces 

10. Ounces to Liters 

1 1 . Liters to Gallons 

12. Gallons to Liters 

13. Kilograms to Pounds 

14. Pounds to Kilograms 

Instructions: Simply enter the number of the conversion that you want to make and 
Apple Barrel will take you from there. 

Comments: Not to start an argument, but if Canada can go Metric, isn’t it about time 
for the U.S. to make the change? 

Space for User Notes: 



APPLE LEMANS 

Description: Apple LeMans can be as hard as the real race or as easy as a Sunday 
afternoon drive. You can vary the speed of your car and as you go faster the track 
becomes more treacherous. Apple Barrel will keep track of the high score, so you 
can have some fun competing with yourself or others. 



8 



Instructions: Load Apple LeMans by selecting Block 3 from the Master Menu. You 
maneuver your race car down the track by rotating the dial on paddle zero like the 
steering wheel of your car. You can speed up or slow down by turning the dial on 
paddle one (your speed paddle). If you turn your speed paddle (#1 ) all the way to the 
right (slowest position), when you first start, you can get the feel of your steering 
paddle (#0)., 

Comments: We discovered some interesting sound and color effects when we 
adjusted the channel tuning dial and turned up the volume on our color set. Depend- 
ing upon your TV set, it may work for you. We’d like to hear from anyone who can 
beat 500 at the fastest setting. 

Space for User Notes: 



THINK 

Description: Think is a test of your memory circuits (the ones in your head.) 

Instructions: There are six rectangles across the screen numbered 1 -6. The Apple 
Barrel has assigned a different musical tone to each rectangle. The Apple Barrel will 
light up a rectangle and play a musical tone at the same time. You respond by 
pressing the appropriate number on the keyboard. If you are correct, you get a point. 
If you are incorrect, you get a strike. Three strikes and you are out. The Apple Barrel 
will next sound two tones, then three, etc. 

Comments: The in-house record is 22 tones. Good Luck. 

Space for User Notes: 



9 



MOUNTAIN 



Description: You are the operator of a gigantic “KABOOM” cannon. The cannon is 
so huge that only the top of the barrel appears on the screen (as the blue shape on 
the far left). You have 3 targets on the other side of the big green mountain. The 
targets have values of 10, 20 or 30 points. The targets change position randomly. 
The mountain changes size and shape each time you shoot. You only have 250 
ammo charges, so try to hit the 30 point target each time. Apple Barrel will automati- 
cally keep track of your points and the number of ammo charges you have left. 

Instructions: Simply select Block 3 from the Master Menu, then select Mountain 
from Block 3. When you are to the playing screen, simply enter your velocity (try 40) 
and press RETURN. Then enter your angle (try 75) and press RETURN. Adjust your 
angle and velocity as necessary to hit the 30 point target as often as possible. 

Comments: You only have 250 units of ammo charges left from yesterday’s battle. 
You must very carefully calculate how much charge to use on each shot, so you 
have enough charge to shoot clear over the mountain as many times as possible. If 
you tried our suggestions in the above instructions you have learned a few things 
already. As little as 1 5 units of charge will let you hit the far right target if the mountain 
is low. 

The targets are canisters of film that contain all the terrible TV commercials that 
we’ve had to suffer through this year. And if you don’t destroy them, we’ll have to 
watch them next year too. Good luck and good shooting. 

Space for User Notes: 



BLACK HOLE CHASE 

Description: You are being chased by creatures from a black hole. A black hole is 
an area of outer space (Yes, outer space is west of Cleveland), where gravity is so 
strong that even light rays can’t escape. You must pilot your spacecraft across the 
galaxy and away from them as fast as possible. 

At the same time, you must avoid three things: (1 ) moving your ship into your own 
vapor trail - it’s radioactive, but will disappear after a while; (2) the edge of the 
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galaxy; (3) the stars and planets in your galaxy. The edge of the galaxy is visible at 
first, and then, little by little, minute by minute, the creatures make parts of the edge 
disappear by turning it into a black hole. Don’t run into it or they’ll get you. 

Instructions: Use the I, J, K and M keys to move up, left, right and down through the 
galaxy. You can set the difficulty from 0 to 10. Zero will give you a galaxy free of 
obstacles to move around. If you can outrun the Black Hole Creatures for over 200 
hours, they’ll run out of fuel before you do and you’ll be saved. 

Comments: We know you were expecting a game where you could search for the 
1 8 holes at the Burning Tree Golf Course. (They disappeared last week -- the holes 
not the golf course.) But that is not this game. We think it beats looking for golf holes. 

Space for User Notes: 



DEMOLITION DERBY 

Description : Demolition Derby is a fast-moving game of strategy where two players 
try to force each other to run into the wall or their own trails. It looks so simple until 
you play someone who knows the various strategies you can use to win. 

Instructions: Blue Player (on the left) uses the E, S, D and X keys to move up, left, 
right and down. Orange player (on the right) uses the I, J, K and M keys to move up, 
left, right and down. Each time you demolish your opponent by forcing him to crash, 
you get a point. First player to get 1 5 points wins. 

Comments: We know that all through this manual, you have wanted to give us your 
comments. Well here’s your chance. In the box below, please give your total, 
complete, candid and frank feedback. Thank you. 

□ 



Space for User Notes: 
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TIC-TAC-TOE 



Description: A description of Tic-Tac-Toe? Just two words-Beat it. It may give you 
a chance at the beginning of your games-take it. 

Instructions: Enter the number of the square you want. The squares are numbered 
from left to right, top to bottom: 

1 2 3 

4 5 6 
7 8 9 

Comments: As Jethro Tull said: “Nothing To Say.” 

Space for User Notes: 



SAVINGS 

Description: Savings is a model of a savings account. You can add deposits, 
subtract withdrawals, add compounded interest and with every entry you make, your 
balance will automatically be kept current. When you want to add interest, you can 
specify the interest rate, the number of compounding periods per year and the length 
of time that you want to work with. You can figure time by number of years, partial 
years or broken years (3.5, 6.7, etc.). You can figure as many transactions as you 
want, add interest whenever you want (at whatever interest rate and compounding 
rate you want) and keep your current balance on display with every entry you make. 
When you finish using the Savings program, it will automatically save your final 
balance if you want it to. 

Instructions: To load Savings, simply select Savings from the Master Menu. The 
program is completely menu-driven so just interact as appropriate. For all you 
billionaires out there using Apples and this wonderful software, we have good news 
and bad news. The good news is that you’re financially rich-the bad news is that this 
Savings program will, in most cases, only work to $999,999.98. (We think that if your 
financial dealings are over this figure that you should talk to us about some custom 
software.) 
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But what if by mistake, you put your balance over $999,999.98? Savings will 
refer you to this finely written manual (or as I was told upon completing this superb 
piece of literature, “F-i-n-a-l-l-y written, huh?”) for instructions. Well, here are the 
instructions: first, promise that you will never do it again; second, stand on your left 
foot; third, try typing RUN and press RETURN. If that doesn’t work, type 
ODATA-h 000000.00 --type exactly that and nothing else, no spaces, nothing else. 
Then press RETURN. Then type Run Savings and press Return. If that fails, press 
Reset twice, Reboot and select Savings from the Master Menu. 

Comments: You can calculate interest for less than one year by just using decimal 
fractions (e.g.: .75). You also can figure periods like 3.5 years by simply typing 3.5 
(amazing, isn’t it?). As you realized from the very beginning, this is a program that 
you can use to calculate Future Value of a particular sum of money, rocks, etc. 

Space for User Notes: 



CHECKBOOK 

Description: Checkbook can help you keep track of the balance of your checking 
account. You can add deposits, subtract checks and either smile or frown depending 
upon what your balance is. Your final balance is automatically saved for future 
reference when you exit this program when returning to the Master Menu or you can 
zero the balance. 

Instructions: To load Checkbook, simply select it from the Master Menu. Follow the 
next menu given. If your balance runs plus or minus $1,000,000.00 follow these 
instructions--first: try typing RUN and press RETURN. If that doesn’t work, type 
0DATA+ 000000. 00 -only that, no spaces, nothing else. Then press RETURN. 
Then type Run Checkbook and press RETURN. If that fails, press Reset, Reboot 
and select Checkbook from the Master Menu. 

Comments: Used properly, this program may save you the hassle that happens at 
our house once in a while-the checkbook somehow becomes overdrawn by several 
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hundred dollars. You know the situation--you run a balance check on your account 
to make sure you have enough to go to the resorts for a week and you’re $800.00 
overdrawn. And then those “lively” discussions about who overdrew what. But that 
probably never happens at your house, does it? 

Space for User Notes: 



DYNAMITE 

Description: Welcome to the wonderful world of Dynamite. Each of you light a stick 
and pretend you’re the Statue of Liberty. Now douse your fuse (I said “fuse” not 
“booze”) and read on. 

There are 15 sticks of dynamite in an abandoned mine. All of them are unlit 
except the last one. The ghost of your dead partner has lit the last stick of dynamite 
and now he wants to play a little game with you. 

Instructions: Each of you take turns taking sticks of dynamite from the pile, up to 3 
sticks in a turn. If you take the last stick, you’ll be blown up and have to take your 
partner’s place in the mine--forever. 

Comments: If you lose and get stuck in the mine, the really bad news is that Howard 
Cosell spends every Wednesday and Thursday in the mine with you. We realize that 
is unfair to you, but then again, when we think of you--maybe it’s unfair to Howard! 
Well, you two can discuss that every Wednesday and Thursday. Good luck with the 
ghost of your dead partner. By the way, why did you shoot him? Oh, you say he used 
to listen to Howard Cosell on the radio and TV all the time? And the jury let you off 
because it was justifiable homicide? How true, how true. 

Space for User Notes: 
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LUNAC, Tor L 



Description: Better known as Luna: Crash, Take Off or Land. No package of games 
would be complete without a version of this old favorite. The primary object of Luna 
C, T or L is to land your space craft safely on the surface of the moon. 

Instructions: Use your zero paddle to control your descent to the lunar surface. 
Turning the dial on your zero paddle controls the amount of fuel that is burned each 
time you push the button on your zero paddle. For more fuel to be burned each time, 
turn the dial counter clockwise; less fuel, turn clockwise. 

Comments: Needless to say, the more fuel you burn, the greater the upward thrust. 
You may even propel yourself out of the gravitational field of the moon and then who 
knows where. We found that if the dials were set so we burned a relatively small 
amount of fuel each time we pushed our burn button, we could control the descent 
rate fairly well. And yes, it is possible to make a perfect landing. 

Space for User Notes: 



ALIEN 

% 

Description: You are on the spaceship NIMROD. You have a few minutes to break 
the code number that will open the weapons vault. And you want to do that because 
the only weapon that will safely destroy the alien is the antimatter laser rifle that is 
stored in the weapons vault. 

The alien has killed the rest of the crew and is now searching for you. He wants 
you for your gourmet qualities. 

instructions: The secret code is made up of numbers from 1 to 9 in any order, none 
repeated. Mother, the ship’s computer, will allow you to decide the number of digits 
(from 2 to 9) in the code. If the Alien gets you before you break the code or you want 
to give up (you coward), you can push the ESCAPE button on the keyboard to 
release cyanide gas into the ship which will stop the alien and the program, allowing 
you to try again or stop. 
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When you enter numbers (and press RETURN) to break the code, Mother, the 
ship’s computer will respond in any combination of the following 3 ways: first-no 
response, which means that none of the numbers in your guess is in the code; 
second, “#” symbol-this means that one of your numbers is in the code, but in the 
wrong place; third, a flashing reversed symbol-this means that one of your 
numbers is in the code and in the right place. . 

Comments: For all of you analytical geniuses, prescient persons, mind-readers and 
byte-bogglers out there-we know you’ll never go over 10 attempts to break the 
code, but just for fun, you should enter some wrong guesses to see the comments 
that are waiting for you every once in a while. We could say something about 
pushing ESCAPE to escape the ALIEN via cyanide gas (a very final escape), but 
“wisdom” dictates otherwise-and for those of you out there asking where we got 
some wisdom to dictate to us, we offer this answer: you can call Dial-A-Wisdom at 
937-3862 for the latest in up-to-the-minute wisdom. And now you ask, “Where, oh 
wise person, did the word “w-i-s-d-o-m” come from?” Well, our On-The-Spot Roving 
(and sometimes raving) Reporter turns in this scintillatingly scented story (that is to 
say-we think it may have a fishy smell-but in all fairness, we’ll let you be the judge.) 

Story: Origin of Wisdom 
Dateline: Chicago, February 31, 1967. 

(Funny-1 thought a dateline was something like “Hey Baby, this is Mr. Available, 
whatcha doin’ tonight?” -but, on with the story). There was a certain wise man from 
Europe that recent immigrants would go to for information about American customs, 
traditions, government red-tape, etc. As many “Schmexperts”* are, this schmexpert 
was very vain and had an over-blown ego (by the way as you may know, a 
schmexpert is a cross between a schmuck and an expert-but, on with the story). 
These poor, struggling immigrants soon realized that to get along with Mr. Schmex- 
pert, they needed to feed his ego-so they would say things like: “We’re dumb and 
you’re so smart, please help us.” But with their accents and rough English it came 
out: “We’s dumb and you’s smart, etc.” This routine worked so well, they called it 
their “we’s dumb” routine. As time passed, it came to be known that when you 
wanted some “wisdom” you were after some knowledge. So wisdom became 
equated with wise use of knowledge. In honor of this tradition the Dial-A-Wisdom 
phone number 937-3862, spells “We’s Dumb”. And the group that answers, calls 
themselves “wisdoms”. And we think that it is just fine for them to call themselves 
“we’s dumbs”, don’t you? 

‘Robert Ringer, “Looking Out for Number One” 

Space for User Notes: 
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HI-RES TEXT WRITER 



Description: Hi-Res Text Writer will allow you to quickly add words and numbers to 
your Hi-Res displays. The letters and numbers are already formed and put into a 
shape table. 

Instructions: Select Hi-Res Text Writer from the Master Menu. HRTW will give you 
a quick sample of the letters and numbers. To display your desired words and 
numbers, type 3HR$=“yourtext” and press RETURN. For example, if your name is 
John Smith and you want to display the words, GRAPHICS BY JOHN SMITH, you 
should type 3HR$=“GRAPHICS BY JOHN SMITH” press RETURN. Type RUN 
and press RETURN. Your text will be displayed 3 times. Lines 4 and 5 in the program 
are GOSUB 60150 and cause your text to be displayed again. To display your text 
once only, simply type 4 and press RETURN then type 5 and press RETURN. To 
have several statements begin at the left you can type 3HR$= “statement one”: 
GOSUB 60150 and press RETURN, 4HR$=“statement two”: GOSUB 601 50, etc. 

The Shape Table order is as follows: 

A thru Z is 1 to 26. The numbers run 1 =27, 2=28, 3=29, 4=30, 5=31, 6=32, 7=33, 
8=34, 9=35, 0=36. The punctuation is ?=37, !=38, and . (period)=39. 

The lengths of the letters, numbers and symbols are as follows: 

A18 B20 C14 D15 E22 F16 G17 H15 114 J12 K20 L8 M18 N19 
014 PI 5 Q20 R18 S17 T10 U12 VII W15 X16 Y12 Z14 ONE11 
TW0 14 THREE14 FOUR11 FIVE14 SIX14 SEVEN11 EIGHT17 NINE14 
ZERO20 ?14 !6 .(Period)7 

% 

Space for User Notes: 
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MUSIC UTILITY 



Description: Music Utility contains various sound effects. You can use them to add 
a little sparkle to your programs. 

Instructions: By looking at the listing of the program you can see what routine 
produces what sound. To hear what a particular routine sounds like, get into Basic, 
type 0, the routine, press RETURN, type RUN, press RETURN and the routine will 
play. To include them in your program, simply type the appropriate line number and 
the routine. 

Comments: Did Lawrence Welk start this way? 

Space for User Notes: 



SHAPE BUILDER 

Description: Shape Builder will let you begin drawing shapes by simply using the I, 
J, K and M keys with the space bar to maneuver the cursor to draw your shape. With 
this program you can create elaborate patterns, figures, etc. in just a few minutes. 
And if you don’t like the results, you can quickly redo it. 

Enter the GREAT SHAPE CONTEST!! Everyone but Farah can enter. Send in your 
software registration card for more details. The prize is a box of ten Dysan disks for 
your Apple--a $50.00 value! 

Instructions: Select Shape Builder from the Master Menu. 

To Begin Drawing your Shape, simply push the I, J, K, and M keys to get the 
direction of the cursor to up, left, right or down, then press the space bar to draw. 

To CLEAR the Screen, press the “C” key and then respond “Y” to clear the screen 
and start over or “N” if you decide that you do not want to clear the screen. 

To RESET The Beginning Coordinates (the default coordinates are at the center 
of the screen— 139,79), simply press the “R” key, then Y/N, of course. You then 
specify your new coordinates in X,Y format. For example: Instead of the default 
coordinates of 139,79, you could specify 100,50 which would move your starting 
point up and to the left. 
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To Change From PLOT to NOPLOT (so that you can move the cursor without 
drawing) press the “X” key. CAUTION: Do not do more than two NOPLOT ups at a 
time. If you need to do more than two NOPLOT ups at a time, go up two, right one, left 
one, up two, right one, left one, etc. The “X” key functions as an on-off switch, i.e. 
you don’t have to answer Y/N when you push X, it instantly changes you from PLOT 
to NOPLOT or from NOPLOT to PLOT. 

To Form Your Shape, push the escape key, then enter the starting address, which, 
in Apple Barrel is 20004, then press RETURN. When it is through forming the shape 
at that address, it will also tell you the length of your shape. You may then save your 
shape to the disk (if you want to--you don’t necessarily have to) by typing BSAVE title 
of your shape, A20004, L and the length of your shape. 

To Run Your Shape, type BLOAD title of your shape. Type ROT=0, press 
RETURN. Type SCALE=1, press RETURN. Type HGR, press RETURN. Type 
HCOLOR=3, press RETURN. Then type DRAW 1 at 139,79, press RETURN. And 
your shape will appear in high-res. If your experience is similiar to most people’s, you 
will be very surprised by what your shape looks like. You can experiment with the 
various factors, such as scale (SCALE) = 2 instead of 1 . Or you might change the 
rotation(ROT) to 8 instead of 0, etc. 

Comments: This program will be extremely helpful to users that have already 
worked with the Apple in building shapes. As you can see from the opening graphic 
displays at the beginning of Apple Barrel, we have used this program extensively. If 
you are brand new at shape building, then this will be an educational experience for 
you. Use the Apple manual and you should have a good time. 

Your shape can be up to 500 vectors with a corresponding length factor of approxi- 
mately 250. If you exceed that amount, you will get an error message that says “Bad 
Subscript Error in 700”. When this happens, you should type RUN and press 
RETURN and start over. For larger shapes, try splitting the shape into two parts and 
recombine them in high-res, or rewrite the program to handle larger shapes. 

Just a few more comments: (1) Your shapes will be wider in low-res than in hi-res. 
Our apples at the beginning of the Apple Barrel looked more like a strawberry when 
we first started. 

(2) The point at which you begin your shape determines how it will be positioned on 
the screen. For example, with the letters A,B,E,L,R and P that we used to spell 
APPLE BARREL, the letters B, E, L, R and P were started in the upper leftmost part 
of the letter. Because it was so hard to predict how and where the “A” was going to 
end up, we started it in the bottom leftmost point. So to line up the letters in a row the 
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coordinates had to be different for the A. Otherwise we got results that looked 
something like this: 

A 

PPLE 

A 

B RREL 

Which was not what we had in mind, so we adjusted the “Y” coordinate (as in X,Y) 
appropriately. 

(3) To manipulate multiple shapes at the same time, you should set up your own 
shape index using the instructions in the Apple manual. This is a B.Y.O.S.I. program 
where multiple shapes are concerned. (B.Y.O.S.I. stands for Bring Your Own Shape 
Index). 

Space for User Notes: 



PLOT 



Description: Plot will plot various math equations on the screen, quickly. 
Instruction: For a quick demo, simply press RETURN in response to all questions. 



For some interesting examples, use the following values for X & Y and press 
RETURN in response to “Would you like a Y axis?” and “Would you like an X axis?” 



Y max = 1 

Y max = 1 

Y max = 1 

Y max = 1 



Y min = -1 

Y min = -1 

Y min = -1 

Y min = -1 



X min = +13500 
X min = -1000 
X min = -13456 
X min = -3765792 



X max = -13500 
X max = 1000 
X max = 1 3456 
X max = 3765792 



To Change Equations: Answer N to “Is this the function you want?” (Y/N) Then 
type 1000 and your equation, press RETURN. Try Y = cos (X^3) with values of 1 , 
- 1 for Y and 1 , 1 0 for X. Try 1 000 Y = sin (2 * X) + cos (X) with Y values of 2, -2 and 
X values of 1 0, - 1 0. No axes in either case. 
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Comments: We were amazed at the beauty of some of the graphics that we tried. 
And how nice it would have been to have this program when I took T rigonometry. Let 
us know what you come up with. 

Space for User Notes: 



MENU UTILITY 

Description: The program that runs the menu and fetches programs off the disk is 
called “Apple Barrel Software.” If you Catalog the disk, you can see it listed. In fact, 
you’ll see a very nicely formatted disk catalog. 

Instruction: If you’ll refer to the program listing of Apple Barrel Software, you can 
see that the program can easily be used for your own programs. Be sure you’re 
studying the right listing. There is a different listing for disk and tape. 

Comments: 

Sapce for User Notes: 



SCREEN PRINT 

Description: Screen Print is a handy utility that you can append to a program of your 
own. Screen Print will print all text that is shown on the screen. 

Instructions: Append Screen Print to your program. Insert a GOSUB Command at 
the places that you want, and your printer will print whatever is on the screen. 

Comments: There are those times when programming or using the Apple when it 
would be handy to have a routine to dump the screen. That is how this program came 
into existence. 

Space for User Notes: 
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PACIFIER 



Description: Pacifier is a random graphics display generator. 
Instructions: Push any key to start a new display. Press Control C to stop. 
Comments: A great little continuous graphics demo. 

Space for User Notes: 



INVERSER 

Description : Inverser is a routine that quickly reverses the entire screen. You saw a 
demo of this effect at the beginning of APPLE BARREL. This routine is not really one 
of the “25” programs, but we thought we’d include it. 

Instructions: You can use Inverser by typing BLOAD INVERSER, A whatever 
address you want to put it at. Then call that address to use it. 

Comments: Speaking of inversing, do you know what you get when you inverse 
Jimmy Carter? 

Space for User Notes: 
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BIG LETTERS 



Description: Big letters is exactly that. The letters that spell APPLE BARREL at the 
beginning of Apple Barrel came from this alphabet. 

Instructions: You can look at the letters by running Shape Builder, get into Basic, 
then type BLOAD A (or B, C, etc.), then use the letter as you did your shape in Shape 
Builder-i.e. Scale=2, HCOLOR=3, ROT=0, HGR, DRAW 1 at 100,100. The length 
of the Big Letters is as follows: 

A AC B E7 C222 D222 E D2 F201 G224 H250 1233 J212 K217 L BO 
M221 N236 0197 P B2 Q130 R FO SI 88 T173 U244 VI 94 W250 

X21 1 Y191 Z223 

In using the table you will notice that the length of some of the letters is designated in 
hex. Simply insert a $, e.g. L$AC, instead of L234. 

Comments: Because of the differences of tape and disk, these letters are available 
on disk but not on tape. If you are a tape user and wish to have the Big Letters, you 
have our permission to save the letters from a disk unit onto your own tape. 

Space for User Notes: 
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Program Modification 

1 . Load the program that you want to modify. 

2. Remove the tape or disk from the tape player or disk drive. 

3. To display the program listing on the screen, type LIST and press RETURN 
and it will scroll up the screen -- or -- simply refer to the listing printed in the 
manual. 

4. To modify the program, simply type the number of the line that you want to 
change, type in the line as you want it to read. When you have finished 
changing lines, type RUN, press RETURN and the customized version of that 
program will be executed. 



User Tips 

1 . If you are using the tape version, you’ll probably find that it is much more 
convenient to save the programs that you use frequently onto short length 
cassettes. 

2. To save your current balance with the programs Checkbook or Savings, you’ll 
need to save the programs onto a separate tape. 
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Index of Program Listings 



Mortgage Loan 28 

Days Between Dates 31 

Calendar 31 

Addition, Subtraction, Multiplication, Division 32 

Metric Conversion 35 

Apple LeMans 37 

Think 38 

Mountain 41 

Black Hole Chase 43 

Demolition Derby 45 

Tic-Tac-Toe 47 

Checkbook 49 

Savings 51 

Alien 53 

Luna C, T or L 56 

Dynamite 59 

Plot 62 

Pacifier 63 

Shape Builder 64 

Music Utility 66 

Screen Print 67 

Hi-Res Text Writer 68 

Menu Utility 69 



Pfte 



0 A 


= PEEK (175 ) + 


10 


POKE 


233, A / 256 


15 


POKE 


232 , 256 •* ( A 


20 


DATA 


1 69 , 32 , 1 33 


21 


DATA 


1 , 1 69 , 0 


22 


DATA 


1 33 , 0 , 1 60 


23 


DATA 


0, 177,0 


24 


DATA 


73, 127, 145 


25 


DATA 


0 , 230 , 0 


26 


DATA 


208 , 246 , 230 


27 


DATA 


1 , 165, 1 


28 


DATA 


20 1,64, 208 


29 


DATA 


238 , 96 


30 


HGR 




35 


POKE 


34,20: HOME 


40 


FOR X 


= 0 TO 28: 1 



PEEK^176? 



* 256 - 1475 



PEEK ( 233 ) ) + 



TWis 1-3 TH-s? (jWmcs 
DlSPf,*^ /Hr TTpg" ge Gtioioiaj 6*^ 
6f /iPPl€ (3o5i+fflL> I. 



PRINT : PRINT 



PRESS ANY KEY TO SKIP TO MENU" 



50 SCALE : 



60 FOR X = 1 TO 65 STEP 8 
70 HC0L0R= 5 
80 ROT = X 

90 DRAW 7 AT 279 / 4,159 / 4 
95 GOSUB 60000 
100 HC0L0R= 4 

110 DRAW 7 AT 279 / 4,159 / 4 

115 GOSUB 60000 

120 NEXT 

130 HCOLOR= 5 

140 DRAW 7 AT 279 / 4,159 / 4 

1 45 GOSUB 60000 

150 FOR X = 1 TO 65 STEP 8 

160 HCOLOR- 6 

170 ROT- X 

180 DRAW 7 AT 279 * 3 / 4,159 / 4 
1 85 GOSUB 60000 
1 90 HCGLOR= 4 



200 


DRAW 7 AT 279 * 3 / 4,159 / 


4 








210 


NEXT 










220 


HCOLOR= 6: DRAW 7 AT 279 * 


3 / 


4, 159 / 4 






225 


GOSUB 60000 










230 


FOR X = 1 TO 65 STEP 8 










240 


HCOLOR= 1 










250 


ROT = X 










260 


DRAW 7 AT 279 / 4,159 * 3 / 


4 








265 


GOSUB 60000 










270 


HCOLOR= 0 










280 


DRAW 7 AT 279 / 4,159 * 3 / 


4 








•-.■Of, 


GOSUB 60000 










290 


NEXT : HCGLOR= 1: DRAW 7 AT 


279 


/ 4,159 * 3 


/ 


4 


295 


GOSUB 60000 










300 


FOR X = 1 TO 65 STEP 8 










3 1 0 


ROT = X 










320 


HCOLOR= 2 










330 


DRAW 7 AT 279 * 3 / 4,159 * 


3 / 


4 






335 


GOSUB 60000 










340 


HCOLOR= 0 










350 


DRAW 7 AT 279 * 3 / 4,159 * 


3 / 


4 






355 


GOSUB 60000 










360 


NEXT : HCOLOR= 2: DRAW 7 AT 


279 


* 3 / 4,159 




3/4 



365 GOSUB 60000 
370 HCQLOR= 3 
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V 



375 GO SUB 60000 

380 FOR X = 1 TO 65 STEP 8 

390 ROT = X 

400 HCOLOR= 3 

410 DRAW 7 AT 139,79 

415 G 0 S U B 6 0 0 0 0 

420 HCOLOR= 0 

430 DRAW 7 AT 139,79 

435 GQSUB 60000 

440 NEXT : HCOLOR= 3s DRAW 7 AT 139,79 

445 G OS U B 6 0 0 0 0 

450 SCALE= 140 

460 ROT = 0 

470 FOR X = 0 TO 159 

430 XDRAW 8 AT 0, X 

435 GO SUB 60000 

490 XDRAW 3 AT 0, 159 - X 

495 GO SUB 60000 

500 NEXT 

510 HGR 

520 SCALE* 2 

530 ROT = 0 

535 HCQLOR* 7 

540 DRAW 1 AT 25,75 

545 COSUB 60000 

550 DRAW 5 AT 75,16: DRAW 5 AT 119,16 

555 GOSUB 60000 

560 DRAW 4 AT 165,16 

565 GOSUB 60000 

570 DRAW 3 AT 219,16 

575 HCOLOR* 3 

580 DRAW 2 AT 3,36 

585 GOSUB 60000 

590 DRAW 1 AT 49,145 

595 GOSUB 60000 

600 DRAW 6 AT 93,37: DRAW 6 AT 143,87: DRAW 3 AT 193,87 

605 GOSUB 60000 

610 DRAW 4 AT 239,37 

615 GOSUB 60000 

620 FOR X = 1 TO 1000: NEXT 



630 


FOR X = 1 TO 10: 


CALL 


763: 


NEXT 


635 


GOSUB 60000 








640 


HCOLOR* 0: DRAW 


4 AT : 


239 , 87 


650 


FOR X = 1 TO 10: 


CALL 


763: 


NEXT 


655 


GOSUB 60000 








660 


DRAW 3 AT 193,87 








670 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


675 


GOSUB 60000 








630 


DRAW 6 AT 143,37 








690 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


695 


GOSUB 60000 








700 


DRAW 6 AT 93,87 








710 


FOR X = 1 TO 10: 


CALL 


763: 


NEXT 


715 


GOSUB 60000 








720 


DRAW 1 AT 49,145 








730 


FOR X = 1 TO 10: 


CALL 


763: 


NEXT 


735 


GOSUB 60000 








740 


DRAW 2 AT 3,86 








750 


FOR X = 1 TO 10: 


CALL 


7 6*8 : 


NEXT 


755 


GOSUB 60000 








760 


DRAW 3 AT 219,16 








770 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


775 


GOSUB 60000 
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780 


DRAW 4 AT 165,16 








790 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


795 


GOSUB 60000 








800 


DRAW 5 AT 119,16 








810 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


815 


GOSUB 60000 








820 


DRAW 5 AT 75,16 








830 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


840 


DRAW 1 AT 25,75 








850 


FOR X = 1 TO 10: 


CALL 


768: 


NEXT 


855 


GOSUB 60000 








856 


RUN 









860 PRINT : PRINT "RUN APPLE BARREL SOFTWARE": END 
60000 IF PEEK ( - 16384) < 128 THEN RETURN 
60010 GET T* 

6 0 0 2 0 G G T 0 8 6 O 



3 

gLOOK" PQ O ^ 

1 DISK = (( PEEK (994) + PEEK (1001) = 192)) 

2 HI = PEEK (115) + PEEK (116) * 256 
10 ONERR GOTO 20 
20 TEXT : HOME 
30 VTAB 5 

40 HTAB 9: PRINT "APPLE BARREL SOFTWARE" 

50 HTAB 9: PRINT "GOOD TO THE LAST BYTE" 

60 PRINT : PRINT : PRINT 
70 HTAB 12: PRINT "BLOCK 1 PROGRAMS" 

80 PRINT : PRINT 
90 PRINT " 1. MORTGAGE 

100 PRINT 

110 PRINT " 2. CAL ENDAR & DAYS BETWE EN D ATES" 

1 20 PR I NT 

130 PRINT " 3. STOP" 

140 PRINT : PRINT 
150 POKE 34 * PEEK (37) 

160 INPUT "ENTER BY NUMBER " *, A$ 

170 A = VAL (A*): IF A < 1 OR A > 3 THEN HOME : GOTO 160 

180 IF A = 3 THEN 60000 
190 ON A GOSUB 2 1 0 , 1550 
200 RUN 

210 ONERR GOTO 220 





215 

216 
217 
220 



POKE 222 7 200 
GOTO 220 

VTAB 24: PRINT "PRESS ANY KEY TO GO ON. "? 
TEXT : HOME 

IF PEEK (222) < > 200 AND PEEK (222) < 

♦DOES NOT COMPUTE": POKE 222,200 



GET A* 

> 255 THEN 



230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 



VTAB 5 
HTAB 18: 
PRINT : 
HTAB 8: 
PRINT 
HTAB 8: 
PRINT 
HTAB 8: 
PRINT 
HTAB 8: 



PRINT "MENU" : M O ALL, lO/^M 

PRINT ^ ‘ “ ' — — 

PRINT "l: COMPUTE INTEREST RATE" 

PRINT "2: COMPUTE PAYMENT" 



PRINT "3*. COMPUTE NUMBER OF PAYMENTS" 
PRINT "4: COMPUTE AMOUNT OF LOAN" 



PRINT 

HTAB 8: PRINT "5: STOP" 

VTAB 18: POKE 34,17 

INPUT "ENTER NUMBER, PLEASE " ; N$ 



PRINT 



"ERROR* 
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370 N = VAL ( N$ ) : IF N = 0 OR N > 5 THEN HOME : GOTO 360 

380 IF N = 5 THEN RUN 

3 9 0 0 N N G 0 T 0 41 0 7 7 0 0 7 9 0 0 7 1 0 3 0 

400 HOME : GOTO 360 

410 TEXT : HOME 

420 VTAB 2: HTAB 10s INVERSE : PRINT "COMPUTE INTEREST RATE": NORMAL 

430 VTAB 8 

440 POKE 34,7 

4 5 0 G 0 S U B 1 3 8 0 

460 POKE 34 , 3 

470 GO SUB 1430 

480 N = N * N1 

490 POKE 34,9' 

500 GO SUB 1260 
510 POKE 34,10 
520 GOSUB 1320 
530 GOSUB 580 
540 PRINT : PRINT 

550 F = I * 1000: PRINT "PERCENTAGE RATE= ";: GOSUB 1480: PRINT "7." 

560 F = I * 1200: PRINT "ANNUAL PERCENTAGE RATE= " ; : GOSUB 1430: PRINT "7. 

II 

570 GOTO 217 

580 UT = PV / PMT 

590 1 = 1 / UT - UT / N 2 

600 I J 1 = UT * I 

6 1 0 U 2 = (1 + I ) -■ - N 

620 IJ3 = 1 - U2 

630 IJ4 = U1 - IJ3 

640 U5 = ( ( ( < N / (1 / I + 1 ) + 1 ) # IJ2 ) - 1 ) / I ) 

650 U6 = U4 / IJ5 
660 1 = 1 + IJ6 
670 U7 = ABS <U6> 

680 IF .000001 < IJ7 THEN 600 
690 RETURN 

700 TEXT : HOME : VTAB 2 

710 INVERSE : HTAB 13: PRINT "COMPUTE PAYMENT": NORMAL 
720 VTAB 8 s POKE 34,7 
730 GOSUB 1200 
740 POKE 34,8 
750 GOSUB 1260 
760 POKE 34,9 
770 GOSUB 1430 
780 POKE 34, 10 
790 GOSUB 1380 
300 PRINT : PRINT 
310 N = N * N1 
820 1 = 1 / 1200 
830 II = I + 1 

840 PMT = PV * < I / ( 1 - 1 1 - N > ) 

850 PRINT "PAYMENT AMOUNT: :F = PM: GOSUB 1480: PRINT 

852 PRINT "AMOUNT ACTUALLY PAID: *" ; :F = F’M * N: GOSUB 1480: PRINT 
854 PRINT "AMOUNT OF INTEREST PAID: *";:F = F - PV: GOSUB 1480: PRINT 
860 GOTO 217 

870 F = I * 100: PRINT "DO YOU MEAN ";: GOSUB 1480: PRINT "7. (Y/N)? INPUT 

" " ■, m 

880 IF LEFT* <N*,1> = "N" THEN 870 
890 1=1* 100: RETURN 
900 TEXT : HOME : VTAB 2 

910 INVERSE : HTAB 7: PRINT "COMPUTE NUMBER OF PAYMENTS": NORMAL : VTAB 

8 

920 POKE 34 , 7 
930 GOSUB 1200 
940 POKE 34 , 8 
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950 GOSUB 1260 

960 POKE 34,9 

970 GOSUB 1320 

980 PRINT : PRINT : PRINT 

990 1=1/ 1200 

1 000 N = - ( ( LOG ( 1 - I * PV / PMT ) / LOG (1 + I ) ) ) 

1010 PRINT "NUMBER OF PAYMENTS: " * : F = N: GOSUB 1480: PRINT 



1020 
1 030 
1040 
1 050 
1060 
1070 
1080 
1 090 
1100 
1 1 10 
1120 
1 1 30 
1140 
1150 
1160 
1165 

1167 

1170 



GOTO 217 

TEXT : HOME : VTAB 2 

INVERSE : HTAB 10: PRINT "COMPUTE AMOUNT OF LOAN": NORMAL 

VTAB 8: POKE 34,7 

GOSUB 1 200 

POKE 34,8 

GOSUB 1320 

POKE 34,9 

GOSUB 1380 

POKE 34, 10 

GOSUB 1430 

PRINT : PRINT : PRINT 
N = N * N1 
1 = 1 / 1200 

PV = PMT * ((1 - (1 + I) - N) / I) 

F = PMT * N: PRINT "AMOUNT ACTUALLY PAID: *";: GOSUB 1480: PRINT : 
GROAN 

F = p - PV: PRINT "AMOUNT OF INTEREST PAID: *"?: GOSUB 1480: PRINT 
F = F'V: PRINT "AMOUNT OF LOAN: *" *, : GOSUB 1480: PRINT 



1180 
1 190 
1200 
121 0 
1220 
1 230 
1240 
1 250 
1260 
1270 
1280 
1290 
1300 



GOTO 217 



END 

REM ENTER INTEREST RATE 
INPUT "ENTER INTEREST RATE " ? N* 

I = VAL (N$): IF I < = 0 THEN HOME : 

IF I C 1 THEN GOSUB 870 
HOME : PRINT "INTEREST RATE: " *, : F = I: 

RETURN 

REM AMOUNT OF LOAN 



GOT 0 121 0 

GOSUB 1480: PRINT "7." 



INPUT "ENTER AMOUNT OF LOAN " ? N* 

IF LEFT* (N*,l) = "*" THEN N* = MID* (N*,2) 

PV = VAL (N*): IF PV < = 0 THEN HOME : GOTO 1270 
HOME : PRINT "AMOUNT OF LOAN*. *" *, :F = PV*. GOSUB 1480*. PRINT 



1 3 1 0 
1 320 
1 330 
1340 
1 350 
1360 
1370 
1 380 
1390 
1400 
1410 



RETURN 

REM ENTER AMOUNT OF PAYMENT 
INPUT "ENTER AMOUNT OF PAYMENT " *, N* 

IF LEFT* ( N* , 1 ) = "*" THEN N* = MID* (N*,2) 

PM = VAL (N*>: IF PM < = 0 THEN HOME *. GOTO 1330 
HOME : F = PM*. PRINT "PAYMENT AMOUNT: *"*, *. GOSUB 1480*. 
RETURN 

REM INPUT NUMBER OF PAYMENTS PER YEAR 
INPUT "ENTER NUMBER OF PAYMENTS PER YEAR " *, N* 

N = VAL <N*): IF N < 1 THEN HOME : GOTO 1390 

HOME : PRINT "NUMBER OF PAYMENTS PER YEAR: "N 



PRINT 



1 420 RETURN 

1430 INPUT "ENTER NUMBER OF YEARS " ; N* 

1440 N1 = VAL (N*): IF N1 < = 0 THEN HOME *■ GOTO 1430 

1450 HOME *. PRINT "NUMBER OF YEARS*. "N1 
1460 RETURN 



1470 END 

1480 FI = F * 100 + .5: FI = I NT (FI) 

1 490 FI* = STR* ( ABS ( F 1 ) > 

1500 IF FI = 0 THEN FI* = "000": GOTO 1530 

1510 IF FI < 0 THEN FI* = "-" + FI*: GOTO 1530 

1520 IF FI < 100 THEN FI* = "0" + FI* 

1530 PRINT LEFT* (FI*, LEN (FI*) - 2)"." RIGHT* (FI*, 2)*, 
1540 RETURN 



REM 



30 



1550 ONERR GOTO 2410 

1560 DATA SATURDAY , SUNDAY , MONDAY , TUESDAY , WEDNESDAY , THURSDAY 7 FRIDAY 
1570 DIM WE* (6) 

1 5 SO FOR X = 0 TO 6: READ WE*(X>: NEXT 

1590 REM DAY BETWEEN DATE, DAY OF WEEK 

1 600 REM 

1610 REM 

1620 REM 

1630 REM 

1640 REM COMPUTER DATA SYSTEMS 
1650 REM 550 NORTH MAIN STREET 
1660 REM LOGAN, UTAH 84321 
1670 REM COPYRIGHT AUGUST 
1680 REM 1979, CDS CORP. 

1690 REM 

1700 REM ALL RIGHTS RESERVED 
1710 REM 

1720 DEF FN F1(X) = 365 * YR + DA + 31 * (MO - 1) + I NT <<YR - 1) / 4) 
- INT (.75 * ( INT (((YR - 1) / 100) + 1))) 

1730 REM DEFINE FUNCTION FOR JAN, FEB 

1740 DEF FN F2(X) = 365 •* YR + DA + 31 * (MO - 1) - INT (.4 * MO + 2.3 
) + INT (YR / 4) - INT ( . 75 * ( INT (YR / 100) +1)) 

1750 REM FOR REST OF YR 

1760 REM 

1770 REM 

1780 TEXT : HOME 

1790 GOTO 1820 

1800 VTAB 24: PRINT "PRESS ANY KEY TO GO ON. " *, : GET A* 

1810 HOME 

1820 TEXT : VTAB 2 

1830 PRINT "THESE PROGRAMS CALCULATE THE DAY OF THE" 

1840 PRINT "WEEK OR NUMBER OF DAYS BETWEEN" 

1850 PRINT "DATES AFTER 1582." 

1860 PRINT "SAMPLE DATE ENTRY: 2,5,1961" 

1870 PRINT 
1880 PRINT 
1890 PRINT 
1900 PRINT " 

1910 PRINT 
1920 PRINT " 

1930 PRINT 

1940 PRINT " 3. RETURN TO BLOCK 1 MENU" 

1950 VTAB 16 

1960 PRINT "ENTER OPTION NUMBER, PLEASE CALL - 958 

1970 POKE 34,15 

1980 INPUT " " ; A* : IF LEN (A*) > 1 THEN 1950 

1990 N = VAL (A*): IF N ( 1 OR N > 3 THEN 1950 

2000 ON N GOTO 2010,2260,2420 

2010 REM DAYS BETWEEN DATES 

2020 VTAB 9 
2030 PRINT " 1. "*, 

2040 INVERSE 

2050 PRINT "DAYS BETWEEN DATES": NORMAL 
2060 POKE 34,17: HOME 

2070 MS* = "ENTER FIRST DATE, PLEASE ": GOSUB 2450 
2080 HOME 

2090 PRINT "FIRST DATE:"*, 

2100 HTAB 15: PRINT MO" , "DA" , " YR 
2110 IF MO < 3 THEN D1 = FN F1(X) 

2120 IF MO > 2 THEN D1 = FN F2(X) 

2130 POKE 34,18: HOME 
2140 PRINT 

2150 MS* = "ENTER SECOND DATE, PLEASE " : GOSUB 2450 




31 



2 1 60 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
23 1 0 



IF MO < 3 THEN D2 = FN F 1 ( X ) 

IF MO > 2 THEN D2 = FN F2(X) 

HOME 

PRINT "SECOND DATE:"; 

HTAB 15: PRINT MO" , "DA" , " YR 
PRINT 

PRINT "NUMBER OF DAYS BETWEEN DATES: " ABS <D2 - D1 ) 

VTAB 24: PRINT "PRESS ANY/ KEY TO GO ON. ";: GET A* 
HTAB 1 
GOTO 1820 

REM COMPUTE DAY OF WEEK 
VTAB 11 

PRINT " 2. "5 

INVERSE : PRINT "CALENDAR": NORMAL 
POKE 34 * 17: HOME 

MS* = "ENTER DATE PLEASE " : GOSIJB 2450 



2320 


IF MO 


< 3 THEN 


D1 


= FN 


FI (X) 


2330 


IF MO 


> 2 THEN 


D1 


= FN 


F2 ( X ) 


2340 


HOME 










2350 


PRINT 


MO", "DA", 


"YR 


II M II « 

* 1 




2360 


DN = D1 


+ ( INT 


( - 


D 1 / 


7) * 


2370 


DN = 7 


* ( D 1 / 7 


— 


INT 


( D1 / 


2380 


PRINT 


WE* ( DN ) " . 


II 







2390 

2400 

2410 



VTAB 24: PRINT "PRESS ANY KEY TO GO ON. ";: GET A*: HTAB 1 
GOTO 1820 

IF PEEK (222) < > 255 THEN PRINT "REENTER DATE, PLEASE" 



RESUME 



2420 

2430 

2440 

2450 

2460 

2470 

2480 



RUN 

HTAB 20 - 
GOTO 210 
PRINT MS*;: 



( LEN <C*)> / 2: PRINT C* 



INPUT " " ; MO, DA, YR 



IF MO 
IF DA 
IF YR 



1 OR MO 



12 THEN 



PRINT "MONTH OUT OF RANGE": GOTO 2450 
1 OR DA > 31 THEN PRINT "DAY OUT OF RANGE": GOTO 2450 
100 THEN PRINT "ENTER THE FULL YEAR PLEASE": PRINT "EXAMPL 
E : 2,5,1961": GOTO 2450 

PRINT "YEAR OUT OF RANGE": GOTO 2450 



2490 


IF 


YR < 158: 


2500 


RETURN 


2510 


REM 




2520 


REM 




2530 


REM 


THIS DI- 


2540 


REM 


POCKET 


2550 


REM 


MUCH a-.: 


2560 


REM 




2570 


REM 





II II II II II II ll II II II 
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60000 HI MEM: HI 

60010 IF DISK THEN PRINT "RUN APPLE BARREL SOFTWARE" 

I 

3 



20 

30 

40 



TEXT : 
GOSUB 
DATA 
0 




Molt , b \ v 



HOME 

1 330 

1 2 , 255 , 3 , 255 ,10, 255 , 3 , 255 ,8,170,7, 85 ,8,1 70 ,10, 



50 READ N, L 
64. DIVISION" 

240 PRINT 

250 PRINT " 5. METRIC CONVERSION" 

260 PRINT 

270 PRINT " 6. STOP" 

280 PRINT : PRINT 
290 POKE 34, PEEK (37) 

300 HOME : INPUT "ENTER BY NUMBER " ; A$ 

310 A = VAL <A$): IF A = 0 OR A > 6 THEN 300 
320 L = 10: N = 4: GOSUB 1430 
324 TEXT 

330 IF A = 6 THEN 1270 

340 HOME : PRINT "TYPE STOP TO RETURN TO THE MENU" 

350 POKE 34,1: REM SET TOP OF PAGE 
355 POKE 35, 17 

360 ON A GOTO 370,580,790,1010,1610 

380 PRINT : PRINT : PRINT 

390 REM SET INITIAL LEVEL 

400 LI = 10: L2 = 10 

410 C = 0: Cl = 0: REM SET COUNTER 

420 A1 = INT ( RND (1) * L1):A2 = INT ( RND (1) * L2) 
430 PRINT Al" + " A2" = " 5 
440 INPUT A* 

450 IF A$ = "STOP" THEN 120 

460 S = VAL ( A$ ) : IF S = Al + A2 THEN 510 

470 GOSUB 1290 



480 PRINT ""; 

490 PRINT Al" + " A2" = " ;: FLASH : PRINT A1 + A2: NORMAL : PRINT :C = 0 
500 GOTO 420 

510 GOSUB 1380: GOSUB 1380: GGSUB 1380 
520 PRINT "RIGHT !!!!!! ! ! ! ! " 

530 PRINT 

540 C = C + l: IF C < R THEN 420 
550 REM DO NEXT LEVEL!!!! 

560 Cl = Cl + 1 

570 LI = LI + Cl * 10: L2 = Ll:C = 0: GOTO 420 

580 REM 

590 PRINT : PRINT : PRINT 

600 LI = 10: L2 = 10 

610 C = 0 : C 1 = 0 

620 Al = INT ( RND (1) * LI) 

630 A2 = INT ( RND (1) * (Al + 1)): REM THIS AVOIDES NEGATIVE NUMBERS 

640 PRINT 

650 PRINT Al" - " A2" = "? 

660 INPUT A$ 

670 IF A$ = "STOP" THEN 120 
680 A = VAL <A$) 

690 IF A - Al - A2 THEN 740 
700 GOSUB 1290 
710 PRINT ""? 

720 PRINT Al" - " A2" FLASH : PRINT Al - A2: NORMAL :C = 0 

730 GOTO 620 

740 GOSUB 1380: GOSUB 1380: GOSUB 1380 
750 PRINT "RIGHT! !!!!!!!!!" 

760 C = C + l: IF C < R THEN 620 

770 C = 0:C1 = Cl + 1 

780 LI = LI + 5 * Cl: GOTO 620 

790 REM tt*##***#**##*****##*#*-*#-*###-*-*##**--*-*##** 

800 PRINT : PRINT : PRINT 

810 LI = 10: L2 = 10 

820 C = 0 : C 1 = 0 

830 Al = INT ( RND (1) * LI) 



840 


A2 = 


INT ( RND 


(1) * L2 ) 


850 


PRINT 






860 


PRINT 


Al" * " A2" ="; 


870 


INPUT 


A$ 




880 


IF A* 


= "STOP" 


THEN 120 


890 


A = VAL <A$) 




900 


IF A 


= Al * A2 


THEN 950 


9 1 0 


GOSUB 


1 290 




920 


PRINT 


11 II » 
7 





930 PRINT Al" X "A2" FLASH : PRINT Al * A2: NORMAL :C = 0 

940 GOTO 830 

950 GOSUB 1380: GOSUB 1380: GOSUB 1380 

960 PRINT "RIGHT! !!!!!'!!!" 

970 C = C + is IF C < R THEN 830 

980 C = 0 : C 1 = Cl + 1 

990 IF LI = L2 THEN LI = LI * 10: GOTO 830 

1000 L2 = L2 * 10: GOTO 830 

1020 PRINT : PRINT : PRINT 

1030 LI = 10: L2 = 10 

1040 C = 0 : C 1 = 0 

1050 Al = INT ( RND (1) * LI) 

1 060 A 2 = I NT ( RND ( 1 ) * L2 ) 

1070 IF A2 = 0 THEN 1060: REM THIS AVOIDS A RATHER STICKY SITUATION 

1080 P = Al * A2 

1090 PRINT 

1100 PRINT P" / " A2" 



34 



1110 INPUT A* 

1120 IF A* = "STOP" THEN 120 

1130 A = VAL (A$>: IF A = A1 THEN 1190 

1140 GO SUB 1290 

1150 PRINT " 

1160 PRINT P" / " A2" =";: FLASH : PRINT Als NORMAL 
1170 C = 0 
1 1 SO GOT 0 1 050 

1190 GO SUB 1380: GOSUB 1380: GQSUB 1380 
1200 PRINT "RIGHT !!!!!!!! ! ! " 

1210 C = C + 1 : Cl = Cl + 1 
1220 IF C < R THEN 1050 
1230 C = 0 

1240 IF LI = L2 THEN LI = LI * 10: GOTO 1050 

1250 L2 = L2 * 10: GOTO 1050 

1260 END 

1270 HIMEM: HI 

1275 IF DISK THEN PRINT "RUN APPLE BARREL SOFTWARE" 
1280 END 

1290 REM RASBERRY 



1300 

1310 

1320 

1330 

1340 

1350 
1360 
1370 
1380 
1390 
1400 
1410 
1 420 
1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 



FOR T = 1 TO 50: D = PEEK ( - 16336): NEXT 

RETURN 

END 



POKE 77 1 , 173 : POKE 772,48 : 
: POKE 776,4: POKE 777,198: 



POKE 773,192: POKE 774,136: POKE 775,208 
POKE 778,1: POKE 779,240: 



POKE 780,8: POKE 
POKE 785,0: POKE 
CC = 2 (1 / 12) 

POKE 739,96: 



781,202: POKE 782,208: POKE 733,246: 
736,76: POKE 787,3: POKE 738,3: 



POKE 784,166: 



RETURN 

REM RANDOM "BLIP" 

POKE 0, RND (1) * 50 + 50: POKE 1,8: CALL 771 
RETURN 

REM SCALE NOTE PLAYER 

REM ASSUMES N=114 AS A=440 

ON N GOTO 1440,1 450 , 1 460 , 1 470 , 1 430 , 1 490 , 1 500 ,1510,1 520 , 1 530 , 1 540 , 1 5 
50, 1560 



POKE 


0 , 


192 


GOTO 


1600 


POKE 


0 , 


181 


GOTO 


1 600 


POKE 


0 , 


171 


GOTO 


1 600 


POKE 


0 , 


162 


GOTO 


1 600 


POKE 


0 , 


153 


GOTO 


1600 


POKE 


0 , 


144 


GOTO 


1600 


POKE 


0 , 


136 


GOTO 


1 600 


POKE 


0 , 


128 


GOTO 


1 600 


POKE 


0 , 


121 


GOTO 


1600 


POKE 


0 , 


114 


GOTO 


1 600 


POKE 


0 , 


107 


GOTO 


1600 


POKE 


0 , 


101 


GOTO 


1600 


POKE 


0 , 


96: 


GOTO 


1 600 



1570 
1580 
1590 
1 600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 
1680 
1690 



REM PLAY SCALE 

FOR N = 1 TO 13: GOSUB 1430: NEXT 
RETURN 

POKE 1,L: CALL 771: RETURN 




TEXT : HOME 
PRINT 

HTAB 11: PRINT? "METRIC CONVERSION" 
PRINT 

PRINT "YOU MAY CONVERT:" 

PRINT 

PRINT "1. CENTIMETERS TO INCHES" 
"2. INCHES TO CENTIMETERS" 



PRINT 

PRINT 



"3. 



METERS TO FEET" 



35 



1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1 800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1 380 
1890 
1900 
1910 



1920 
1930 
1940 
1950 
I960 
1970 
1 980 
1990 
2000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2 1 1 0 
2 1 20 
2 1 30 
2 1 40 
2150 
2 1 60 
2170 
2 1 80 
2190 
2200 
22 1 0 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
23 1 0 



PRINT "4. FEET TO METERS" 

PRINT "5. KILOMETERS TO MILES" 

PRINT "6. MILES TO KILOMETERS" 

PRINT "7. DEGREES (C> TO DEGREES <F>" 
PRINT "8. DEGREES (F) TO DEGREES <C>" 
PRINT "9. LITERS TO OUNCES" 

PRINT "10. OUNCES TO LITERS" 

PRINT "11. LITERS TO GALLONS" 

PRINT "12. GALLONS TO LITERS" 

PRINT "13. KILOGRAMS TO POUNDS" 

PRINT "14. POUNDS TO KILOGRAMS" 

PRINT "15. RETURN TO MENU" 

PRINT : POKE 34, PEEK (37) 

ONERR GOTO 2330 

INPUT "ENTER BY NUMBER " ' A$ 

POKE 216,0 



IF A* = "" THEN HOME : GOTO 1840 
A = VAL (A*): IF A < 1 OR A > 15 THEN HOME 
IF A = 15 THEN 120 
TEXT : HOME 

VTAB 12: POKE 34, PEEK (37): HOME 

ON A GOTO 1 920 , 1 960 , 1 980 , 2000 , 2030 , 2060 , 2090 



: GOTO 



1840 



2 1 20 , 2 1 50 , 2 1 80 



, 22 1 0 



40 , 2270 , 2300 

INPUT "ENTER NUMBER OF CENTIMETERS " *, A 
PRINT A" CENTIMETERS = "A / 2.54" INCHES" 

VTAB 24: PRINT "PRESS SPACE TO GO ON. "?: GET A* 

RUN 1610 

INPUT "ENTER NUMBER OF INCHES " *, A 

PRINT A" INCHES = "A * 2.54" CENTIMETERS": GOTO 1940 

INPUT "ENTER NUMBER OF METERS " 1 A 

PRINT A" METERS = "A / .3048" FEET": GOTO 1940 

INPUT "ENTER NUMBER OF FEET " *, A 

PRINT A" FEET = "A * .3048" METERS" 

GOTO 1940 

INPUT "ENTER NUMBER OF KILOMETERS " * A 
PRINT A" KILOMETERS = "A / 1.609344" MILES" 

GOTO 1940 

INPUT "ENTER NUMBER OF MILES " ? A 

PRINT A" MILES = "A * 1.609344" KILOMETERS" 

GOTO 1940 

INPUT "ENTER DEGREES (C) " ? A 

PRINT A" DEGREES (C) = "9 * A / 5 + 32" DEGREES (F)" 
GOTO 1940 



INPUT "ENTER DEGREES (F) " *, A 
PRINT A" DEGREES (F) = "5 / 9 * (A 
GOTO 1940 

INPUT "ENTER NUMBER OF LITERS " ; A 
PRINT A" LITERS - " A / .0295737296" 
GOTO 1940 

INPUT "ENTER NUMBER OF OUNCES " *, A 
PRINT A" OUNCES = "A * .0295737296" 



32 ) " DEGREES 



OUNCES" 



LITERS 



II 



GOTO 1940 

INPUT "ENTER NUMBER OF LITERS " *, A 

PRINT A" LITERS = "A / 3.785411784" GALLONS" 

GOTO 1940 

INPUT "ENTER NUMBER OF GALLONS " : A 

PRINT A" GALLONS = "A * 3.785411784" LITERS" 



GOTO 1940 



INPUT "ENTER NUMBER OF KILOGRAMS " *, A 

PRINT A" KILOGRAMS = "A / .45359237" POUNDS" 

GOTO 1940 

INPUT "ENTER NUMBER OF POUNDS " ? A 

PRINT A" POUNDS - "A * .45359237" KILOGRAMS" 



( C ) " 
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END 



2 3 2 0 G 0 T 0 1 9 4 0 
2330 TEXT : HOME 



VTAB 12: 



1 HI 


= PEEK (115) 


+ PEEK (116) * 256 


2 D I 


SK = ( 


PEEK (9 


94) + PEEK (1001)) = 192 


10 


TEXT : 


HOME 




14 


VTAB 5 






20 


HTAB 9: 


PR I NT 


"APPLE BARREL SOFTWARE" 


30 


HTAB 9: 


PRINT 


"GOOD TO THE LAST BYTE" 


35 


PRINT 






37 


POKE 216,0 




40 


HTAB 12 


: PRINT 


"BLOCK 3 PROGRAMS" 


50 


PRINT : 


PRINT 


: PRINT 


60 


PRINT " 


1 . 


APPLE LEMANS" 


70 


PRINT " 


XL a 


THINK" 


80 


PRINT " 


•"j 

•J a 


MOUNTAIN" 


90 


PRINT " 


4. 


STOP" 


1 00 


PRINT 


: PRINT 


: PRINT 



110 PO 
120 IN 
130 IF 
140 I = 
150 IF 
1 60 ON 
170 HI 
180 IF 
190 TE 
1000 I 
1010 P 
1020 T 
1 030 P! 
1040 PI 
1050 PI 
1060 PI 
1070 PI 
1080 PI 
1090 PI 
1100 PI 
1110 PI 
1 1 20 PI 
1130 PI 
1140 PI 



00X0x120^. ^ ^ 

4 ??U& L 



POKE 34 7 PEEK (37) 

INPUT "ENTER BY NUMBER " ; A$ 

IF A$ = " " THEN HOME : GOTO 120 
= VAL ( A$ ) 

IF I < 1 OR I > 4 THEN HOME : ^ 

ON I GOTO 1 000 , 1 790 7 3320 ^ "> — 

himem: hi VjA P 

IF DISK THEN PRINT : PRINT "RUN APPLE^BARREL SOFTWARE 1 
TEXT : HOME : VTAB 12: END 
IF I NT ( PEEK (804) / 2) = PEEK (805) THEN 1020 
POKE 803.7 0: POKE 804,0: POKE 805,0 
TEXT : HOME : VTAB 5 

PRINT "APPLE LEMANS CAN BE AS HARD AS THE REAL" 

PRINT "RACE OR AS EASY AS A SUNDAY AFTERNOON" 

PRINT "DRIVE." 

PRINT 

PRINT "TURN THE DIAL ON PDL (0) LIKE THE" 

PRINT "STEERING WHEEL ON YOUR CAR. TURN" 

PRINT "PDL (1) TO CONTROL THE SPEED OF THE" 

PRINT "CAR." 

PRINT 

PRINT "TO START THE RACE, LINE UP YOUR CAR (+)" 

PRINT "WITH THE FLASHING LIGHT SYMBOL." 

PRINT 

VTAB 24: PRINT "PRESS SPACE TO GO ON. " *, : GET A$ 



1150 


VTAB 


24 


: PRINT 


"PRESS SPACE TO 


1160 


TEXT 


: 1 


-IOME 








1170 


HTAB 


14 


PRINT 




1 1 80 


HTAB 


14 


PRINT 


"X 




X" 


1 1 90 


HTAB 


14 


PRINT 


"X 


STARTING 


X" 


1200 


L = 


INT 


( PDL 


( 1 ) 


/ 255 * 


7) + 


1210 


HTAB 


14 


PRINT 


"X 


AREA 


X" 


1 220 


HTAB 


14 


PRINT 


"X 




X" 


1230 


HTAB 


14 


PRINT 


"X 


TURN 


X" 


1240 


HTAB 


14 


PRINT 


"X 


YOUR 


X" 


1250 


HTAB 


14 


PRINT 


"X 


PADDLE 


X" 


1 260 


HTAB 


14 


PRINT 


"X 


TILL 


X" 


1270 


HTAB 


14 


PRINT 


"X 


BELL 


X" 


1280 


HTAB 


14 


PRINT 


"X 


RINGS. 


X" 


1 290 


HTAB 


14 


PRINT 


"X 




X" 


1 300 


HTAB 


14 


PRINT 




1310 


FLASH 










1320 


M = 0 













5 + 



INT ( RND (1) 
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1330 HTAB 39 / 2s PRINT " "?: NORMAL 

1340 REM LOOP TIL START (YES, I DO KNOW THAT "TILL" IS NOT 
1350 E = I NT ( PDL (0) * 38 / 255 + 1) 

1360 IF E = 19 THEN 1410 
1370 HTAB E: PRINT " + 

1380 IF I NT ( PDL (0) * 38 / 255 + 1) = E THEN 1380 
1390 HTAB E: PRINT " " ? 

1400 GOTO 1350 

1410 PRINT CHR* (7)", 

1420 HTAB 19: FLASH : PRINT " + "*, 

1 430 NORMAL 

1440 HTAB 14: PRINT "X"*,: HTAB 25: PRINT "X" 

1450 REM SELECT INITIAL DIRECTION, LENGTH 

1460 P “ 14: C = 19 
1470 XD = 0 

1480 L = 10: REM BEYOND THIS YOU HAVE NO PROMISE 
1490 REM TOP OF LOOP 



1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1 620 
1630 
1640 
1 650 
1660 
1670 
1 680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1 820 
1 830 
1840 
1 850 
1860 
1870 
1 880 
1890 
1 900 
1 9 1 0 
1920 
1 930 
1940 
1945 



X": 



19) / 7) 



FOR X = 1 TO L 
HTAB P: PRINT "X 
M = M + 1 

FOR T = 0 TO PDL ( 1 ) : NEXT 
C = C + I NT ( ( ( PDL (0) / 255 * 40 + 1) 

XF C < = P OR C > = P + 11 THEN 1670 
HTAB C: FLASH : PRINT : NORMAL 
P = P + XD 
IF P < 1 THEN P = 1 
IF P > 28 THEN P = 28 
NEXT 

IF ABS (XD) = 1 THEN XD = 0: GOTO 1650 
XD = INT ( RND (1) * 3 + 1) ~ 2 
IF p a l AND X < = 0 AND RND (1) < .5 THEN 1620 

IF p = 28 AND X > = 0 AND RND (1) < .5 THEN 1620 

L = INT ( PDL (1) / 255 * 7) +5 
GOTO 1 490 

PRINT : PRINT "CRASH" 

PRINT "YOUR SCORE: "M 
HS = PEEK (803) + PEEK (804) * 256 
PRINT "HIGH SCORE: "HS 

IF HS < M THEN 1750 

INPUT "DO YOU WANT TO TRY AGAIN? (Y/N) " ‘ A* 

IF LEFT* ( A* , 1 ) = "Y" THEN 1160 
RUN 

HI = M / 256 

H2 = (HI - INT (HD) * 256 + .5 
POKE 803, H2: POKE 804, Hi: POKE 805, HI / 2 
GOTO 1720 

TEXT : HOME , . _ . _ 

VTAB 5 v * 

PRINT "THINK IS A MEMORY TEST PROGRAM (YOURS," 

PRINT "NOT THE APPLE'S). THE APPLE WILL PLAY 
PRINT "AND LIGHT UP NUMBERED RECTANGLES AT THE" 
PRINT "SAME TIME. YOU REPEAT BACK THE SAME" 

PRINT "SEQUENCE USING THE NUMBERS ON THE APPLE" 
PRINT "KEYBOARD." 

PRINT 

PRINT "YOU CAN VARY THE LENGTH OF THE TONES" 

PRINT "PLAYED BY SETTING YOUR SPEED FROM 1 TO" 
PRINT "255, 1 IS THE FASTEST, 255 IS THE SLOW-" 
PRINT "EST. TRY 150 TO START." 

IF i NT ( PEEK (801) / 2) = PEEK (802) THEN 1940 
POKE 800,0: POKE 801,0: POKE 802,0 
PRINT : PRINT 

DIM A (40): REM IF YOU CAN REMEMBER MORE THAN THIS- 



OTvLKiK.> 



CORRECT ) 



38 



" ; L 



1950 HTAB 5: INPUT "SPEED? 

I960 IF L < 1 DR L > 255 THEN PRINT "1 TO 255, PLEASE": GOTO 1950 
1970 GO SUB 2920 



1990 


GR : 


COLOR 


= 11 


2000 


HLIN 


0,7 AT 7 


20 1 0 


VLIN 


7,20 


AT 3 


2020 


VLIN 


7 , 20 


AT 4 


2030 


COLOR 


:= 13 




2040 


VLIN 


7 , 20 


AT 9 


2050 


VLIN 


7,20 


AT 10 


2060 


VLIN 


7 , 20 


AT 15 


2070 


VLIN 


7 , 20 


AT 14 


2080 


HLIN 


9,15 


AT 13' 


2090 


COLOR 


:= 14 




2 1 00 


HLIN 


1 7 , 23 


AT 7 


2110 


HLIN 


17,23 


AT 20 


2120 


VLIN 


7 , 20 


AT 20 


2130 


COLOR 


:= 6 




2140 


VLIN 


7 , 20 


AT 25 


2150 


VLIN 


7 , 20 


AT 31 


2160 


PLOT 


26,9 




2170 


PLOT 


26, 10 




2180 


PLOT 


27,11 




2190 


PLOT 


27, 12 




2200 


PLOT 


28, 13 




2210 


PLOT 


28, 14 




2220 


PLOT 


29, 15 




2230 


PLOT 


29 , 1 6 




2240 


PLOT 


30, 17 




2250 


PLOT 


30, 18 




2260 


COLOR 


:= 15 




2270 


VLIN 


7 , 20 


AT 33 


2280 


PLOT 


34, 13 




2290 


PLOT 


35, 12 


: PLOT 35,14 


2300 


PLOT 


35, 1 1 


: PLOT 35,15 


2310 


PLOT 


36, 11 


: PLOT 36, 15 


2320 


PLOT 


36, 10 


: PLOT 36, 16 


2330 


PLOT 


37, 10 


: PLOT 37,16 


2340 


PLOT 


37,9: 


PLOT 37,17 


2350 


PLOT 


38 , 9 : 


PLOT 38, 17 


2360 


PLOT 


38 , 8 : 


PLOT 38, 18 


2370 


PLOT 


39,8: 


PLOT 39,18 


2380 


PLOT 


39,7: 


PLOT 39, 19 


2390 


PLOT 


39 , 20 





2400 COLOR= 5 

2410 HLIN 2,6 AT 39 
2420 HLIN 8,12 AT 39 
2430 HLIN 14,18 AT 39 

2440 HLIN 20,24 AT 39 

2450 HLIN 26,30 AT 39 

2460 HLIN 32,36 AT 39 

2470 HOME 

2480 FOR X = 1 TO 6 

2490 HTAB 5 + (X - 1) * 6s PRINT X? 

2500 NEXT 

2510 PRINT 

2520 FOR X = 1 TO 40 

2530 A( X ) = INT ( RND (1) * 6) + 1 

2540 NEXT 

2550 ST = 0 

2560 SC = 0 

2570 VTAB 23: PRINT "STRIKES* "ST? : HTAB 20: PRINT 
2580 FOR X = 1 TO SC + 1 



'SCORE* "SC 



39 



2590 POKE - 16368,0 
2600 C = A ( X ) 

2610 COSUB 2790 
2620 NEXT 

2630 REM YOUR TURN 
2640 FOR X = 1 TO SC + 1 
2650 VTAB 24: HTAB is GET A* 

2655 IF A$ = " " THEN RUN 

2660 A “ VAL ( A* ) : IF A = 0 OR A > 6 THEN 2650 

2670 IF A < > A ( X ) THEN 2740 

2680 C = A: GOSUB 2790 
2690 NEXT 

2700 PRINT " " 5 : FOR T = 1 TO 1000*. NEXT 
2710 SC = SC + 1 

2720 IF SC > 40 THEN PRINT "PERFECT!": GOTO 3250 

2730 GOTO 2570 

2740 GOSUB 2880 

2750 ST = ST + 1 

2760 FOR T = 1 TO 1000: NEXT 

2770 IF ST < 3 THEN 2570 

2780 GOTO 3200 

2790 REM BEEP AND SHOW 

2800 COLOR 55 1 2 

28 1 0 C 1 = 2 + 6 * < C - 1 > 

2820 HLIN Cl, Cl + 4 AT 39 
2830 N - C *2 - ( C > 4 ) 

2840 GOSUB 3020 

2850 COLOR 55 5: HLIN Cl, Cl + 4 AT 39 
2860 RETURN 
2870 GOTO 2870 
2830 REM RASBERRY 

2890 FOR T = 1 TO 50: D = PEEK ( - 16336): NEXT 
2900 RETURN 




40 



3 ISO 


RETURN 




3190 


POKE 1,L: 


CALL 771: 


3200 


HOME 




3210 


PRINT "THREE STRIKE' 


3220 


HS = PEEK 


( SOO ) + 


3230 


PRINT "FINAL SCORE® 


3240 


IF HS <: S 


3 THEN 328 


3250 


INPUT "DO 


YOU WANT 


3260 


IF LEFT* 


( A* 7 1 ) = 


3270 


GOT 0 10 




32 SO 


HI = SC / 


256 


3290 


H2 = (HI - 


INT (HI) 


3300 


POKE SOO, 


H2: POKE 3 


3310 


GOTO 3250 





PEEK. (SOI) * 256 



•Y" THEN 1950 



'HS 



\ a ~-~> v =>(-, + f; 



3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 



GOSUB 4280 
ONERR GOTO 4150 
GOSUB 4200 

DEF FN T ( Q) = X / (V * 

DEF FN C0(X) = X * 3.141592654 / ISO 
DEF FN W(X) = V * FN T(0> * SIN (0) 
SHOTS = 250: SCORE = Os Cl = 0 
SCORE = SCORE + Cl 
IF SH = 0 THEN 4160 



COS ( 0 ) ) 



4.9 * FN T(0) 



3410 


Cl = 0 




3420 


GR 




3430 


COLOR® 12 




3440 


MAX = INT ( 


RND (1) * 20) + 15 


3450 


FOR X = 0 TO 3 


3460 


VLIN MAX - 


(3 - X ) , 39 AT X + 14 


3470 


VLIN MAX - 


(3 - X ) , 39 AT 14 - X 


3480 


NEXT 




3490 


COLOR® 2 




3500 


FOR X = 0 TO 6 


3510 


HLIN 0,4 AT 


39 - X 


3520 


NEXT 




3530 


REM NOW WE 


SET TARGETS 


3540 


COLOR® 1 




3550 


HLIN 22,25 


AT 39 


3560 


HLIN 23,31 


AT 39 


3570 


HLIN 34,37 


AT 39 


3580 


Al = INT ( 


RND ( 1 ) * 3 ) + 1 


3590 


A2 = INT ( 


RND (1) * 3) + 1* IP 


3600 


A3 = INT ( 


RND ( 1 ) *3) + is IF 



A3 OR A2 



3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 



3600 

A 1 = A 1 * 1 0 : A2 = A2 * 1 0 : A3 = A3 * 10 
HOME : VTAB 21s HTAB 2: PRINT SHOTS? 

HTAB 10s PRINT "SCORE® "SCORES 
VTAB 21 s HTAB 24: PRINT Al? 

HTAB 30: PRINT A2? 

HTAB 36: PRINT A3: POKE 33,15: POKE 34,21 
INPUT "CHARGE "?V: INPUT "ANGLE? " ? O 

IF 0 < 1 OR 0 > 89 THEN PRINT "ANGLE IS OUT 
IF V < 1 THEN PRINT "CHARGE MUST BE GREATER 



OF RANGE": 
THAN ZERO! 



3695 IF SH < V THEN PRINT "(POP)": GOTO 3670 

3697 SH = SH - V 
3700 0 = FN C0(0> 

3710 X ® 0 
3720 Y = FN W(X> 

3730 COLOR® 15 

3740 Xl=X+4:Yl=Y+2 

3750 Y 1 = 39 - Y 1 

3760 XI = INT (X1):Y1 = INT (Yl) 



= A3 THEN 



GOTO 3670 
: GOTO 3670 
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3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4085 
4090 
4100 
4110 
4120 
4130 
4 1 40 
4150 
4160 
4170 
4180 

4185 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 



IF VI > 39 THEN 3980 
IF XI > 39 THEN 3380 
IF Y 1 < 0 THEN 3870 
IF SCRN ( XI, Yl) = 12 THEN 3900 
IF SCRN ( XI, Yl) = 1 THEN 3980 
L = 10 

IF Yl < 0 THEN POKE 0,25: GOTO 3350 
POKE 0, Yl / 39 * 230 + 25 
POKE 1 , L: CALL 771 
PLOT X 1 , Y 1 

X = X + is GOTO 3720 
GOTO 4120 
REM HIT BARRIER 
FOR X = 0 TO 15 
COLOR® X 
PLOT X 1 , Y 1 
GOSUB 4210 
NEXT 

COLOR® Os PLOT X1,Y1 
GOTO 3390 

REM MAYBE YES, MAYBE NO 
IF Yl > 39 THEN Yl = 39 
E = SCRN ( XI, Yl) 



IF 


XI > 


= 22 


AND 


XI < 


= 25 


THEN 


Cl 


= A1 : LI 


= 22: L2 = 


25 


IF 


XI > 


= 28 


AND 


XI <: 


= 31 


THEN 


Cl 


= A2--L1 


= 28 : L2 = 


31 


IF 


XI > 


= 34 


AND 


XI < 


= 37 


THEN 


Cl 


= A3: LI 


= 34 : L2 = 


37 



IF E < > 1 THEN 4120 

REM YES 
COLOR® 2 

HLIN L1,L2 AT 39 
FOR X = 1 TO 5 
L ® 4 

N = is GOSUB 4230: N = 13: GOSUB 4230 
NEXT 



GOTO 3390 
REM NO 
GOSUB 4190 
GOTO 3390 

IF PEEK (222) < > 255 THEN RESUME 

TEXT : HOME 

VTAB 10: PRINT "YOUR FINAL SCORE: " SC 

INPUT "DO YOU WANT TO TRY AGAIN? (Y/N) " ", A*: 
"Y" THEN RUN 
GOTO 3340 
GOTO 2880 
GOTO 2920 
GOTO 2970 
REM 

GOT 0 3020 

REM PLAY SCALE 

FOR N ® 1 TO 13: GOSUB 4230: NEXT 
RETURN 

POKE 1 , L: CALL 771: RETURN 

TEXT : HOME : VTAB 5 

HTAB 16: AT = "MOUNTAIN": GOSUB 4570 

PRINT : PRINT : PRINT 

A* = "THE OBJECT OF THIS GAME IS TO HIT A" 
GOSUB 4570 

A* ® "SERIES OF TARGETS WITH YOUR " + CHRT ( 
( 34 ) : GOSUB 4570 

AT = "GUN. YOU CONTROL THE VELOCITY AND THE": 
AT ® "ANGLE OF THE PROJECTILE.": GOSUB 4570 
PRINT 



IF LEFT* ( AT , 1 ) 



34) + "KABOOM" + 
GOSUB 4570 



S' 



CHRT 
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4370 A* = "THE TARGETS ARE NORTH 10, 20, OR 30": GOSUB 4570 
4330 A* = "POINTS AND CHANGE AT RANDOM.": GOSUB 4570 
4390 VTAB 20: A* = "PRESS ANY KEY TO GO ON. ": GOSUB 4570 
4400 GET A* 

4410 HOME : VTAB 8 

4420 A* = "BETWEEN YOU AND THE TARGETS THERE IS A" 

4430 GOSUB 4570 

4440 A* = "MOUNTAIN WHOSE HEIGHT CHANGES AT " 

4450 GOSUB 4570 

4460 A* = "RANDOM. YOU MUST SHOOT OVER THE " 

4470 GOSUB 4570 

4480 A* = "MOUNTAIN TO REACH THE TARGET." 

4490 GOSUB 4570 
4500 PRINT 

4510 A* = "YOU ONLY HAVE 250 AMMO CHARGES,": GOSUB 4570 
4520 A* = "SO TRY TO HIT THE 30 POINT TARGET WITH" 

4530 GOSUB 4570 
4540 A* = "EACH SHOT." 

4550 GOSUB 4570 

4560 PRINT : PRINT : PRINT : A* = "PRESS ANY KEY TO BEGIN": GOSUB 4570 
A*: RETURN 

4570 FOR X = 1 TO LEN (A*) 

4580 PRINT MID* <A*,X,1); :P = PEEK ( - 16336) + PEEK ( - 16336) + 

( - 16336) + PEEK ( - 16336) 

4590 NEXT : PRINT : RETURN 



3 

3 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
3 1 0 
320 
330 
340 



HI = PEEK 
DISK = ( PEEK 
TEXT : HOME 



(115) 



+ 

(994) 



PEEK (116) * 256 
+ PEEK (1001)) = 



192 



PRINT : 
HTAB 9: 
HTAB 9: 
PRINT 
HTAB 12 
PRINT : 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
POKE 3 
INPUT 



PRINT : PRINT 

PRINT "APPLE BARREL SOFTWARE" 
PRINT "GOOD TO THE LAST BYTE" 



PR BLOCK 

PRINT : 

' 1 . 



4 PROGRAMS" 



PRINT — ■ 

BLACK HOLE CHASE" 
DEMOLITION DERBY" 
TIC TAC TOE" 




4 THEN HOME 



" 3. 

" 4. STOP" 

: PRINT' : PRINT 
4, PEEK (37) 

"ENTER BY NUMBER "? I* 

I = VAL (I*): IF I < 1 OR I > 

ON I GOTO 220,1390,2240 
HIMEM: HI 

IF DISK THEN PRINT "RUN APPLE_BABBEL_S.Q £IWARE" 

gosub 1060 RxJE. £ 

TEXT : HOME : VTAB 3 ' ~ 

HTAB 12: PRINT "BLACK HOLE CHASE" 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



GOTO 160 



: PRINT 

" YOU ARE BEING CHASED BY CREATURES" 

"FROM A BLACK HOLE. YOU MUST PILOT YOUR" 
"SPACECRAFT ACROSS THE GALAXY AND AWAY" 
"FROM THEM AS FAST AS POSSIBLE. AT THE " 
"SAME TIME, YOU MUST AVOID MOVING YOUR" 
"SHIP INTO YOUR OWN VAPOR TRAIL (WHICH 
"RADIOACTIVE AND DISAPPEARS AFTER A" 
"WHILE) AND AVOID HITTING THE END OF THE" 
"GALAXY. THE EDGE OF THE GALAXY IS VIS-" 



IS" 5 



GET 

PEEK 
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350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

430 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 



PRINT "IDLE AT FIRST, AND THEN LITTLE BY LITTLE"; 
PRINT "THE CREATURES MAKE PARTS OF THE EDGE" 

PRINT "DISAPPEAR BY TURNING IT INTO A BLACK" 

PRINT "HOLE-SO DON'T RUN INTO THE HOLE OR" 

PRINT "THEY'LL GET YOU." 

VTAB 24; PRINT "PRESS SPACE TO GO ON. ";: GET AT 



HOME 
VTAB 5 

PRINT "USE THE I, J, K, AND M KEYS TO MOVE" 

PRINT "UP, LEFT, RIGHT AND DOWN THROUGH THE" 

PRINT "GALAXY. YOU CAN SET THE DIFFICULTY LEVEL"; 
PRINT "FROM 0 TO 10. ZERO WILL GIVE YOU A " 

PRINT "GALAXY WITHOUT ANY OBSTACLES TO MOVE" 

PRINT "AROUND. LEVELS OF DIFFICULTY (1-10) WILL"; 
PRINT "GIVE YOU AN INCREASING NUMBER OF PLANETS"; 
PRINT "AND STARS TO MOVE YOUR SHIP AROUND. IF" 
PRINT "YOU CAN OUTRUN THE BLACK HOLE CREATURES" 
PRINT "FOR 200 HOURS, THEY'LL RUN OUT OF FUEL" 
PRINT "BEFORE YOU DO AND YOU'LL BE SAVED!" 

PRINT 

INPUT "DIFFICULTY LEVEL (0-10)? ";D 

IF D < 0 OR D > 10 THEN 550 

DEF FN R( X ) = INT ( RND (1) * X + 1) 



GR 

COLOR* 15: HLIN 0,39 AT 0: 



VLIN 0,39 AT 39: HLIN 0,39 AT 39: 



39 AT 0 



VLIN 0, 



600 


S = 0 




6 1 0 


IF D > 0 THEN 920 




620 


REM 




630 


X = 20 : Y = 20 




640 


COLOR* 7 




650 


PLOT X , Y 




660 


XD = FN R(3) - 2 




670 


IF XD * 0 THEN 660 




680 


YD = 0 




690 


IF PEEK ( - 16384) 


:> 127 THEN 820 


700 


IF X + XD > 39 OR X 


+ XD C 0 THEN 900 


710 


IF Y + YD > 39 OR Y 


+ YD < 0 THEN 900 


720 


X = X + XD 




730 


Y * Y + YD 




740 


COLOR* 0: PLOT FN 


R ( 40 ) - 1, FN R ( 40 ) 


750 


IF SCRN ( X , Y ) < > 


0 THEN 900 


760 


COLOR* 7 





1 



770 GO SUB 1110 

~j px) — ‘-i + 1 

790 IF S = 2000 THEN PRINT : PRINT "YOU HAVE OUT RUN THE CREATURES 
1 360 

800 PLOT X , Y 
810 GOTO 690 
820 GET AT 



830 


XI = 


XD 


: Y 1 = 


YD 












840 


XD * 


0: 


YD = < 


0 












850 


IF 


AT 


rs *• | 11 


THEN 


XD * 


— 


1 : G 


OT 0 6 


90 


860 


IF 


AT 


— 11 j y 11 


THEN 


XD = 


l: 


GOT 0 


690 




870 


IF 


AT 


=■- "M" 


THEN 


YD * 


l: 


GOTO 


690 




880 


IF 


AT 


= "I" 


THEN 


YD * 


— 


1 : G 


OTO 6 


90 


890 


XD = 


: XI 


: YD * 


Yl: 


GOT 0 6 


■90 








900 


PRINT 


" CRAS 


H" 












9 1 0 


GOTO 1 


340 














920 


REM S 


ET OB 


STRUC 


T I ONS 










930 


FOR X 


* 1 T 


0 1 0 


* D 











940 COLOR- FN R(15) 
950 XI = FN R ( 37 ) + 1 



II ■ 



GOTO 
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960 Y 1 = FN R ( 37 ) + 1 

970 IF XI = 20 AND Y1 = 20 THEN 950 

980 GOSUB 1110 

990 PLOT X 1 ^ Y1 

1000 NEXT 

1010 GOTO 620 

1020 REM RASBERRY 

1030 FOR T = 1 TO 50 :D = PEEK ( - 16336): NEXT 



1040 

1050 

1060 

1070 

1080 
1 090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 



RETURN 

END 

POKE 771 7 173: POKE 7727 48: POKE 7737 192: POKE 7747 136: POKE 775.7 208 
: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: 

POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: 
POKE 785,0: POKE 786,76: POKE 787,3: POKE 788,3: 

CC = 2 (1 / 12) 

POKE 789,96: 

RETURN 

REM RANDOM "BLIP" 

POKE 0, RND (1) * 50 + 50: POKE 1,8: CALL 771 
RETURN 

REM SCALE NOTE PLAYER 

REM ASSUMES N=114 AS A=440 

ON N GOTO 1170,1180,11 90 , 1 200 ,1210,1 220 , 1 230 , 1 240 , 1 250 , 1 260 , 1 27 0 , 1 2 





80, 1290 






1170 


POKE 


0, 192 


GOTO 


1 330 


1180 


POKE 


0, 181 


GOTO 


1330 


1190 


POKE 


0, 171 


GOTO 


1330 


1200 


POKE 


0, 162 


GOTO 


1330 


1210 


POKE 


0, 153 


GOTO 


1330 


1220 


POKE 


0, 144 


GOTO 


1 330 


1230 


POKE 


0 , 1 36 


GOTO 


1 330 


1240 


POKE 


0, 128 


GOTO 


1330 


1250 


POKE 


0, 121 


GOT 0 


1 330 


1260 


POKE 


0,114 


GOTO 


1330 


1270 


POKE 


0, 107 


GOTO 


1330 


1 280 


POKE 


0, 101 


GOTO 


1 330 


1290 


POKE 


0 , 96 : 


GOTO 1 


330 


1300 


REM 


PLAY 


SCALE 





1310 
1 320 
1 330 
1340 



FOR N 
RETURN 
POKE 1 
D = 10 



1 TO 13: GOSUB 1160: NEXT 



CALL 771: 



1350 


IF D ; 


1360 


PRINT 


1370 


INPUT 




" THEN 


1380 


RUN 


1390 


REM 


1400 


TEXT 


1410 


VTAB 


1420 


HTAB 


1 430 


PRINT 


1440 


PRINT 


1450 


PRINT 


1 460 


PRINT 


1470 


PRINT 


1 480 


PRINT 


1490 


PRINT 


1500 


PRINT 


1510 


PRINT 


1520 


PRINT 


1521 


PRINT 


1522 


PRINT 



RETURN 
GOTO 1360 



, L: 

- D 

0 THEN Q = S: 

"YOUR SCORE IS 
"DO YOU WANT TO PLAY AGAIN? (Y/N) " ’ A*: 
RUN 550 



II C* II 



IF LEFT* ( A* , 1 ) 



HOME 



V 



2*. PRINTS" DEMOLITION DERBY" / 

: PR I NT ' — 

’DEMOLITION DERBY IS A FAST-MOVING GAME" 
PRINT "OF STRATEGY WHERE TWO PLAYERS TRY TO" 

"FORCE EACH OTHER TO RUN INTO THE WALL OR"; 
"THEIR OWN TRAIL.": PRINT 

"BLUE PLAYER ON THE LEFT USES THE E, S, D"5 
"AND X KEYS TO MOVE UP, LEFT, RIGHT AND" 
"DOWN. ORANGE PLAYER ON THE RIGHT USES" 

"THE I, J, K, AND M KEYS TO MOVE UP," 
"LEFT, RIGHT AND DOWN. EACH TIME YOU " 
"DEMOLISH YOUR OPPONENT BY FORCING HIM TO"; 
"CRASH, YOU GET A POINT! (WOW!). FIRST" 
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1523 PRINT "PLAYER TO GET 15 POINTS WINS!” 

1530 VTAB 24: PRINT "PRESS SPACE TO GO ON. " ; : GET AT 
1540 XS = Os YS = 0: GOSUB 1060 
1550 HONE 

1560 VTAB 21: HTAB 10: PRINT XS; : HTAB 30: PRINT YS; 

1570 GR : COLOR 55 15: HLIN 0 239 AT 0: HLIN 0 239 AT 39: VLIN 

0 239 AT 0 

1580 XI - 4 : Y 1 = 20 
1590 D1 = 1 : El 55 0 
1600 X2 = 35: Y2 = 20 
1610 D2 55 - l:E2 = 0 

1620 PI = 12: P2 = 2:L = 4 
1630 COLOR 55 6 s PLOT X 1 Y 1 
1640 N = Pi: GOSUB 2220 
1650 COLOR— 9s PLOT X2*Y2 
1660 N = P2: GOSUB 2220 



1670 


Q = 


PEEK ( 


- 1 638 


4) : 


IF 0. <: 128 THEN 1780 


1680 


GET 


A* 










1690 


IF 


A* = "E" 


THEN 


D 1 


= 


0 : E 1 = - 1 : P 1 = 1 : GOTO 1780 


1700 


IF 


A* = "S" 


THEN 


D 1 


= 


- 1 : E 1 = OsPl = 5: GOTO 1780 


1710 


IF 


A* = "X" 


THEN 


D 1 


= 


0:E1 55 i:Pl = 9s GOTO 1780 


1720 


IF 


At = "D" 


THEN 


D 1 


= 


1 : El = 0 : P 1 55 10 s GOT Q 1780 


1730 


IF 


At = "I" 


THEN 


D 2 


= 


0 : E2 = - l:P2 = 13: GOTO 178 


1740 


IF 


At = "J" 


THEN 


D2 


= 


- 1 : E2 = 0:P2 = 2: GOTO 1780 


1750 


IF 


At = "M" 


THEN 


D 2 


ss 


0: E2 = 1 : P2 55 7: GOTO 1780 


1760 


IF 


At = "K" 


THEN 


D 2 


= 


1 : E2 = Os P2 = 3 


1770 


IF 


PEEK ( 


- 16384) 


m S 


127 THEN 1670 


1780 


REM 










1790 


XI = 


5 XI + D1 


s Y 1 55 


Y 1 


+ 


El 


1800 


X2 5 


X2 + D2 


: Y2 = 


Y2 


+ 


E2 



1810 


IF XI < 0 


OR 


XI > 39 


THEN 1980 


1820 


IF X2 < 0 


OR 


X2 > 39 


THEN 2040 


1830 


IF Y 1 < 0 


OR 


Y 1 > 39 


THEN 1980 


1840 


IF Y2 < 0 


OR 


Y2 > 39 


THEN 2040 


1850 


IF SCRN ( 


Xl, 


Yl) < 


> 0 THEN 1880 


1860 


IF SCRN ( 


X2, 


Y2) < 


> 0 THEN 1930 


1870 


GOTO 1630 








1 880 


REM X CRASH 






1890 


I F SCRN ( 


X27 


Y2) < 


> 0 THEN 2100 


1900 


COLOR 55 15 








1910 


PLOT XI 7 YI 







1920 YS = YS + is GOTO 2140 
1930 REM Y CRASH 

1940 IF SCRN ( XI 7 YI) < > 0 THEN 2100 

1950 COLOR 55 15 

I960 PLOT X2,Y2 

1970 XS = XS + is GOTO 2140 

1980 REM X OVERFLOW 

1990 IF XI C 0 THEN XI 55 0 

2000 IF XI > 39 THEN XI 55 39 

2010 IF Y 1 < 0 THEN Y1 55 0 

2020 IF Y 1 > 39 THEN Y1 55 39 

2030 GOTO 1900 

2040 REM Y OVERFLOW 

2050 IF X2 < 0 THEN X2 = 0 

2060 IF X2 > 39 THEN X2 55 39 

2070 IF Y2 C 0 THEN Y2 = 0 

2080 IF Y2 > 39 THEN Y2 55 39 

2090 GOTO 1950 

2100 REM TIED CRASHES 

211 0 COLOR 55 5 : PLOT X 1 7 Y 1 

2120 XS 55 XS + 1 s YS 55 YS + 1 

2130 IF XS 55 15 OR YS = 15 THEN PRINT 



0 7 39 



AT 39: VLIN 
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II 



GOTO 2190 



2135 


IF XS = 15 


2140 


IF XS = 15 


2150 


IF YS = 15 


2160 


FOR X = 1 


2170 


GOTO 1560 


2130 


GOTO 1020 


2190 


INPUT "DO 




" THEN RUN 


2200 


GOTO 30 


2210 


GOT 0 111 0 



AND YS = 15 THEN HOME : PRINT " IT'S A TIE! . 

THEN PRINT "BLUE PLAYER WINS'!!": GOTO 2190 

THEN HOME : PRINT "ORANGE PLAYER WINS!!!": GOTO 2190 



IF LEFT* (A$,l) = "Y 



iO GOTO 1160 



2230 


GOTO 1 IS 


IN A ROW. 


II 














2300 


VTAB 9 


















2310 


PRINT "THE BOARD I 


S NUMBERED: " 














2320 


PRINT 


















2330 


HTAB 14: 


PRINT " 


";: INVERSE 


: PRINT 


II II ■ ■ 

7 ■ 


NORMAL 


■ 

■ 


PRINT 


II 




INVERSE 


: PR I NT " 


II 














2340 


NORMAL 


















2350 


HTAB 14: 


PRINT " 1 


INVERSE 


: PRINT 


II II ■ ■ 

7 ■ 


NORMAL 


■ 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


" ; : NORMAL : 


PRINT " 


3" 










2360 


HTAB 14: 


PRINT " 


" INVERSE 


: PRINT 


II II ■ • 

7 ■ 


NORMAL 


• 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


": NORMAL 














2370 


HTAB 14: 


INVERSE : 


PRINT " 


II • 

• 


NORMAL 








2380 


HTAB 14: 


PRINT " 


";: INVERSE 


: PRINT 


II II ■ • 

7 ■ 


NORMAL 


• 

• 


PRINT 


II 




I NVERSE 


: PRINT " 


" : NORMAL 














2390 


HTAB 14: 


PRINT " 4 


";: INVERSE 


: PRINT 


II II ■ • 

7 • 


NORMAL 


■ 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


" ; : NORMAL : 


PRINT " 


6" 










2400 


HTAB 14: 


PRINT " 


" : INVERSE 


: PRINT 


II II ■ ■ 

7 • 


NORMAL 


■ 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


" : NORMAL 














2410 


HTAB 14: 


INVERSE : 


PRINT " 


II > 

a 


NORMAL 








2420 


HTAB 14: 


PRINT " 


: INVERSE 


: PRINT 


II II a a 

7 • 


NORMAL 


■ 

• 


PRINT 


II 




INVERSE 


: PRINT " 


": NORMAL 














2430 


HTAB 14: 


PRINT " 7 


: INVERSE 


: PRINT 


II II ■ • 

7 • 


NORMAL 


■ 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


" : NORMAL : 


PRINT " 


9" 










2440 


HTAB 14: 


PRINT " 


";: INVERSE 


: PRINT 


II IIb ■ 

7 • 


NORMAL 


a 

■ 


PRINT 


II 




INVERSE 


: PRINT " 


" ; : NORMAL 














2450 


HTAB 1 


















2460 


VTAB 24: 


PRINT "PRESS SPACE TO 


START GAME "; 


: GET A* 








2470 


GOSUB 3700 
















2480 


X = 1:0 = 


2 

















2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2605 

2610 




GR 

COLQR= 15 
HLIN 0,39 AT 13 
HLIN 0,39 AT 26 
VLIN 0,39 AT 13 
VLIN 0,39 AT 26 
HOME 

PRINT "ENTER YOUR MOVE " ', : GET A* 

IF A* = CHR* (27) OR A* = CHR* (3) THEN 30 






S ll • a 

7 • 



II « • 
7 • 



L 



O ■ K | — O 

O • IN — o 



2620 GOSUB 1 1 60 
2630 PRINT 

2640 M = VAL (A$): IF A(M) < >0 THEN 2590 

2650 IF M > 9 OR M = 0 THEN 2590 

2660 HOME : PRINT "YOUR MOVE: "M 

2670 IF SI THEN 2480 

2680 A ( M ) = X 

2690 GOSUB 2840 

2700 REM NOW IT'S MY TURN 
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XF T = 0 THEN 2730 
GOTO 3100 
REM TURN=0 

IF A ( 5 ) = 0 THEN M = 5:A(M) = Os GOSUB 
M = 1 : A(M) = Os GOSUB 2840 
PRINT "MY MOVE: " 

PRINT M + 1 

N = 1 3 : L = 8 : GOSUB 1 1 60 
FOR XI = 0 TO 1000: NEXT 
T = 1 
SE = 0 

GOSUB 3420: IF SI THEN 3660 

GOTO 2590 

ON A(M) GOTO 2850,2950 

REM X 

GOSUB 3030 

REM DRAW AN X 

COLOR* 2 

FOR X2 = 0 TO 4 

PLOT CX - X2,CY + X2 

PLOT CX + X2,CY + X2 

PLOT CX - X2,CY - X2 

PLOT CX + X2,CY - X2 

NEXT : RETURN 

REM DRAW AN 0 

GOSUB 3030 

COLOR* 1 3 

HLIN CX - 4 , CX + 4 AT CY - 4 



2840: GOTO 2760 



Yl) + .5) 



3 1 80 
3 1 90 
3200 

3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
33 1 0 
3320 



HLIN CX - 4 , CX + 4 AT CY - 4 

HLIN CX - 4 , CX + 4 AT CY + 4 

VLIN CY - 4, CY + 4 AT CX + 4 

VLIN CY - 4, CY + 4 AT CX - 4 

RETURN 

REM COMPUTE X1,Y1 
M = M - 1 
Yl = INT (M / 3) 

XI = INT (3 * ( M / 3 - Y 1 ) + . 5 ) 

CX * 7 + XI * 13 
CY ~ 7 + Yl * 13 
RETURN 

REM OTHER THAN 1 
SE = X: GOSUB 3420 

IF 31 THEN PRINT "YOU WIN": GOTO 3770 
IF RND (1) < .05 THEN 3160 

SE - 0; GOSUB 3570 
IF R < > o THEN M = R: GOTO 3400 

IF RND (1) C .05 THEN 3190 
SEARCH = X: GOSUB 3570 
IF R < > 0 THEN M = R: GOTO 3400 

IF RND (1) < .10 THEN 3210 
IF (Ad) = X AND A ( 9 ) = X) OR (A<3) = 

2 * (A(4) < > 0): IF A(P) = 0 THEN M = 

IF RND (1) C .5 THEN 3280 



X AND A (7) = X) THEN P 
: P: GOTO 3400 



I F RND ( 1 ) 
IF A (2) = X 
IF A ( 4 ) = X 
IF A (8) * X 
IF A ( 2 ) = > 
IF A ( 4 ) = > 
IF A<2> * > 
IF A ( 6 ) * > 
IF A ( 8 ) * ) 
IF A ( 8 ) * > 
IF A (2) * ) 



X AND A ( 4 ) 
X AND A (8) 
X AND A(6 > 
X AND A (6) 
X AND A (6) 
X AND A ( 7 ) 
X AND A ( 1 ) 
X AND A ( 3 ) 
X AND A(l) 
X AND A (9) 



X AND A ( 1 ) 
X AND A ( 7 ) 
X AND A (9) 
X AND A (3) 
X AND A(l) 
X AND A(l) 
X AND A (2) 
X AND A (9) 
X AND A (7) 
X AND A (3) 



THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 



l: GOTO 
7: GOTO 
9: GOTO 
3: GOTO 
1 : GOTO 
1 : GOT 0 
2: GOTO 
9 : GOT 0 
7 : GOTO 
3: GOTO 



3400 

3400 

3400 

3400 

3400 

3400 

3400 

3400 

3400 

3400 



REM CHECK FOR DRAW 
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3330 


FOR 


XI = 1 TO 9 


3340 


IF A ( X 1 ) = 0 THEN 3360 


3350 


NEXT 


: PRINT "THE GAME I 




780 




3360 


M = 


I NT C RND Cl) * 9 ) + 


3370 


IF ACM) < > 0 THEN 3360 


3380 


GOTO 


3400 


3390 


END 




3400 


ACM) 


= 0: GOSUB 2840: GOT 


3410 


END 




3420 


REM 


SEARCH 1 


3430 


DATA 


1,2, 3 


3440 


DATA 


4 7 5.7 6 


3450 


DATA 


7 , 3 7 9 


3460 


DATA 


1,4,7 


3470 


DATA 


2 7 5 7 8 


3480 


DATA 


3,6,9 


3490 


DATA 


1,5,9 


3500 


DATA 


3,5,7 


3510 


RESTORE 


3520 


S 1 = 


0 


3530 


FOR 


XI = 1 TO 8 


3540 


READ 


A , B , C 


3550 


IF AC A) = SE AND A ( B ) = 


3560 


NEXT 




3570 


REM 


SEARCH2 



A DRAW" :N = 1:L = 



GOSUB 1 1 60 : GOT 0 3 



2760 



l: RETURN 



3530 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 



3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 



3730 

3790 

3300 

3310 



RESTORE 
R = 0 

FOR XI = 1 TO 3 
READ A,B,C 

IF A (A) = SE AND A(B) 
IF A ( A ) = SE AND A(C) 
IF A(B) = SE AND A(C) 
NEXT : RETURN 
PRINT "I WIN" 

L = 100 

N = 13s GOSUB 1160SN = 
1 160s N = 5: 



SE AND A ( C ) 
SE AND A ( B ) 
SE AND A ( A ) 



0 THEN R = Cs 



= 0 THEN R 



B: 



= 0 THEN R = A: 



RETURN 

RETURN 

RETURN 



1 1 60 : N = 1 : 



3s GOSUB 1 1 60 s N = 10: GOSUB 1160:N = 8: GOSUB 
GOSUB 1 1 60 : N = 8 : GOSUB 1 1 60 : N = 10s GOSUB 1 1 60 : N = 3s GOSUB 
GOSUB 1160: GOTO 3780 

GOTO 1020 
GOTO 1060 
GOTO 1110 
GOTO 1160 
REM PLAY SCALE 

FOR N = 1 TO 13: GOSUB 3720: NEXT 
RETURN 

POKE 1 7 L: CALL 771: RETURN 

L = 100: N = 13s GOSUB 3720: N = 1: GOSUB 3720: N = 13: GOSUB 3720: N = 
l: GOSUB 3720: N = 5: GOSUB 3720: N = 1: GOSUB 3720: N = 8: GOSUB 3720: 

N = 5: GOSUB 3720: N = l: GOSUB 3720 
INPUT "DO YOU MANT TO PLAY AGAIN? (Y/N) " ? A* 

SI = 0: FOR T = 0 TO 9:A(T> = 0: NEXT 
IF LEFT* (A$,l) = "Y" THEN 2470 
GOTO 30 



I 

3 



0 DATA 

1 ONERR 
10 REM 
20 REM 
30 REM 



+ 000000 . 00 
GOTO 210 
DO NOT UNDER ANY CIRCUSTANCE 
REMOVE 7 RENUMBER 7 OR RETYPE LINE 0! ! ! ! ! 
PROGRAM WILL DIE A HORRIBLE DEATH 
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40 DISK = ( PEEK (994) + PEEK (1001) = 192) 

50 Z = PEEK (103) + PEEK (104) * 256 + 5: REM POINTS TO START OF DATA 3 
TATEMENT 

Aft N* = CHR* ( PEEK (Z)): IF N$ < > " + " AND N* < > THEN 60000 



60 N* = CHR* ( PEEK (Z)): IF N* < > 


180 


TEXT : HOME 




190 


RESTORE 




200 


READ B 




210 


TEXT : HOME : 


VTAB 5 


220 


GOSUB 10000 




230 


VTAB 10 




240 


HTAB 5: PRINT 


"l: ENTER DEPOSIT ( 


250 


PRINT 




260 


HTAB 5: PRINT 


"2: ENTER CHECK (S) 


270 


PRINT 




280 


HTAB 5: PRINT 


"3: QUIT" 


290 


PRINT : PRINT 




300 


POKE 34 7 PEEK 


(37) 


310 


HOME : INPUT 


"ENTER BY NUMBER "5 


320 


A = VAL (A*): 


IF A < 1 OR A > 3 


325 


TEXT 




330 


ON A GOTO 340 


, 470, 40000 


340 


HOME 





350 HTAB 13: INVERSE : PRINT "ENTER DEPOSITS" 

360 NORMAL : PRINT " PRESS <RETURN> ALONE TO RETURN TO MENU" 

370 POKE 34, 3 s HOME 
380 GO SUB 10000 

390 HTAB 21 s INPUT "DEPOSIT? 'MAI* 

400 IF LEFT* (Al*,l) = "*" THEN Al* = MID* (Al*,2) 

410 IF Al* = "" THEN 210 
420 A 2 = VAL (Al*) 

430 IF A 2 < 0 THEN PRINT : PRINT "ENTER A " : FLASH : PRINT "DEPUoIT ?: 
NORMAL : PRINT " PLEASE!": PRINT : GOTO 380 
435 Al = I NT ( A2 * 100 + .5) / 100 
440 Al = VAL ( STR* (Al)) 

445 B = B + Al 

450 IF ABS (B) > 999999.99 THEN PRINT "BALANCE TOO LARGE — LUCKY ! ! " = GOTO 
50000 

460 GOTO 380 
470 HOME 

480 HTAB 14*. INVERSE : PRINT "ENTER CHECKS": NORMAL 
490 PRINT " PRESS <RETURN> ALONE TO RETURN TO MENU" 

500 POKE 34 , 3 : HOME 
510 GOSUB 10000 

520 HTAB 22: INPUT "CHE __ _ r 

580 IF ABS (B) > 999999.99 THEN PRINT "BALANCE TOO bMALL": GUTU -'OOOO 

590 GOTO 510 

10000 PRINT "BALANCE= *"; 

10005 IF B < 0 THEN PRINT 
10010 PRINT I NT ( ABS ( B ) ) " . " 5 
10020 B 1 = ABS (B) 

10030 B2 = B1 - I NT (Bl) 

10040 B2 = I NT ((100 * B2 + .5)) / 100 
10050 B2* = SEN (Q2*) = 1 THEN Q2* = ".00" 

40080 IF LEN (0.2*) = 2 THEN 0.2* “ 02* + "0" 

40090 0* “ STR* (01) 

40100 C = LEN (0*) 

40110 Cl ~ 6 - C 
40120 IF Cl = 0 THEN 40160 
40130 FOR X = 1 TO Cl 
40140 0* = "0" + 0* 

40150 NEXT 

40160 IF B < 0 THEN Q* = + Q* 

40170 IF B > = 0 THEN 0* = "+" + 0* 
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40 ISO Ql* = 0 % + 0 . 2 % 

40190 FOR X = 1 TO LEN (Ql*) 

40200 POKE Z + X - 1, ASC ( MID* (Q1*,X)) 

40210 NEXT 

40220 IF DISK THEN 55000 
40230 TEXT : HOME : VTAB 10 

40240 PRINT "PREPARE TAPE FOR RECORDING AND" 

40250 PRINT "PRESS ANY KEY. " ; : GET A* 

40260 SAVE : END 
5 0 0 0 0 G 0 T 0 6 0 0 2 0 

55000 PRINT "SAVE CHECKBOOK": PRINT "RUN APPLE BARREL SOFTWARE" 
60000 REM BAD PERSON YOU! 

60010 PRINT "LINE 0 HAS BEEN DAMAGED!" 

60020 PRINT "SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS"; 

60040 GOTO 30000 



3 
3 

0 DATA +000000.00 
10 ONERR GOTO 210 
20 REM DO NOT UNDER ANY Cl ROUST ANCE 
30 REM REMOVE, RENUMBER, OR RETYPE LINE 0!!!!! 

40 REM PROGRAM WILL DIE A HORRIBLE DEATH 
50 DISK = ( PEEK (994) + PEEK (1001) = 192) 

60 Z = PEEK (103) + PEEK (104) * 256 + 5: REM POINTS TO START OF DATA S 
TATEMENT 

70 N* = CHR* ( PEEK (Z)): IF N$ < > " + " AND N* <Z > THEN 1070 



180 


TEXT : 


HOME 








190 


RESTORE 










200 


READ B 










210 


TEXT : 


HOME : 


VTAE 


t 5 




220 


GOSUB 640 








230 


VTAB 10 










240 


HTAB 5: 


PRINT 


" 1 : 


ENTER 


DEPOSIT (S) " 


250 


PRINT 










260 


HTAB 5: 


PRINT 


ii O ■ 

• 


ENTER 


WITHDRAWL ( S ) 


270 


PRINT 










280 


HTAB 5: 


PRINT 


if o » 

.J ■ 


ADD INTEREST" 


OO 1 
ZO 1 


PRINT 










282 


HTAB 5: 


PRINT 


"4: 


QUIT" 




290 


PRINT : 


PRINT 








295 


POKE 34 


, PEEK 


( 37 ) 






300 


INPUT "1 


ENTER BY NUMBER " 


; A* 


310 


REM 











320 A = VAL (A*): IF A < 1 OR A > 4 THEN HOME : GOTO 300 
330 ON A GOTO 340,490,2000,780 
340 TEXT : HOME 

350 HTAB 13: INVERSE : PRINT "ENTER DEPOSITS" 

360 NORMAL : PRINT " PRESS <RETURN> ALONE TO RETURN TO MENU" 

370 POKE 34,3: HOME 
380 GOSUB 640 

390 HTAB 21: INPUT "DEPOSIT? ";A1* 

400 IF LEFT* (Al*,l) = "*" THEN Al* = MID* (Al*,2) 

410 IF Al* - "" THEN 210 
420 A2 = VAL (Al*) 

430 IF A2 < 0 THEN PRINT : PRINT "ENTER A " ; : FLASH s PRINT "DEPOSIT";: 
NORMAL : PRINT " PLEASE!": PRINT : GOTO 380 
440 Al = I NT (A2 * 100 + .5) / 100 
450 Al = VAL ( STR* (Al)) 

460 B = B + Al 




470 IF ABS (B) 
1 060 



999999 



99 THEN 



PRINT "BALANCE TOO LARGE — LUCKY 



" : GOTO 
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480 
490 
500 
510 
520 
530 
540 
590 Al = 
600 Al = 
6 1 0 
620 
630 



650 

660 



710 

870 



GOTO 380 
TEXT : HOME 

HTAB 12: INVERSE : PRINT "ENTER WITHDRAWLS": NORMAL 

PRINT " PRESS <RETURN> ALONE TO RETURN TO MENU" 

POKE 34,3: HOME 
GO SUB 640 

HTAB 22: IN GOTO 530 

I NT ( A2 * 100 + .5) / 100 
VAL ( STR$ (Al)) 

610 B = B - Al 

IF ABS (B) > 999999.99 THEN PRINT "BALANCE TOO SMALL": GOTO 1060 
GOTO 530 

PRINT "BALANCE= $"? 

IF B < 0 THEN PRINT 
PRINT INT ( ABS (B) 

670 B 1 = ABS (B) 

680 B2 = B1 - INT (Bl) 

690 B2 = INT ((100 * B2 + -5)) / 100 
700 B2$ = STR$ ( B2 ) 

Q2$ = ".00" 

IF LEN ( 0.2$ ) = 2 THEN Q2$ = 0.2$ + "0" 

880 Q$ = STR$ ( Q 1 ) 

890 C = LEN ( Q$ ) 

900 Cl = 6 - C 

IF Cl “ 0 THEN 950 
FOR X = 1 TO Cl 
930 Q$ = "0" + 0$ 

940 NEXT 

IF B < 0 THEN Q$ = + 0$ 

IF B > = 0 THEN Q$ = "+" + 0$ 

970 Ql$ = Q$ + 02$ 

FOR X = 1 TO LEN (01$) 

POKE 1 + X - 1 , ASC ( M I D$ (01$, X ) ) 

NEXT 

IF DISK THEN 60000 
TEXT : HOME : VTAB 10 

PRINT "PREPARE TAPE FOR RECORDING AND" 

PRINT "PRESS ANY KEY. " ? : GET A$ 

SAVE : END 
GOTO 1090 

REM BAD PERSON YOU! 

PRINT "LINE 0 HAS BEEN DAMAGED!" 

PRINT "SEE INSTRUCTION BOOKLET FOR INSTRUCTIONS"? 

GOTO 750 

REM ADD INTEREST 
TEXT : HOME 



9 1 0 
920 



950 

960 



980 
990 
1 000 
1010 
1 020 
1 030 
1040 
1050 
1060 
1070 
1080 
1090 
1 1 10 
2000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2073 
2075 
2077 
2080 B 
2090 B 



VTAB 5 

HTAB 14: INVERSE : PRINT "ADD INTEREST": NORMAL 

PRINT : PRINT 

INPUT "ENTER INTEREST RATE PER YEAR "?I 
INPUT "ENTER NUMBER OF COMPOUNDING PERIODS 
INPUT "ENTER NUMBER OF YEARS "?N 
1 = 1/11 

PRINT : PRINT : PRINT "OLD " ? : GOSUB 640 
B * ( 1 + I / 1 00 ) N 
VAL ( STR$ ( INT (B * 100 + .5) / 100)) 



PER YEAR " ? 1 1 



GOSUB 640 



2095 PRINT : PRINT 
2100 PRINT "NEW "? 

2105 PRINT _ . 

2120 VTAB 24*. PRINT "PRESS SPACE TO GO ON. "?: GET A$: GUTU 210 

60000 PRINT "SAVE SAVINGS": PRINT "RUN APPLE BARREL SOFTWARE" 
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- 



1 



1 DISK = ( PEEK (994) + PEEK (1001)) = 192 

2 HI = PEEK (115) + PEEK (116) * 256 
10 GO SUB 1660 

20 ONERR GOTO 1540 
30 GOSUB 780 
40 DIM N ( 9 ) 

50 REM GENERATE SECRET CODE 
60 CO = 0 






; Alism 



70 a* = " " : IQ* = " " 

80 INPUT "NUMBER OF DIGITS IN THE CODE? " ? C* 

90 IQ = VAL ( C* ) : ' IF IQ < 2 OR IQ > 9 THEN PRINT "BETWEEN 2 AND 9, PLEA 
SE": GOTO 80 



100 FOR X = 1 TO IQ 

110 N = INT ( RND (1) * 9 + 1) 

120 IF N ( N ) THEN 110 

130 N(N) = 1 

140 A* = A* + STR* (N) 

150 IQ* = IQ* + CHR* (95) 

160 NEXT 
170 HOME 



1 80 
190 
200 
210 
220 



230 



240 



250 

260 



PRINT 
PRINT 
HTAB 3 

FOR X = 1 TO 9 : N ( X ) = Os NEXT 

IF CO = 10 THEN SPEED* 100: POKE 34, PEEK (37): PRINT "THE ALIEN TO 
OK ONE LOOK AT YOU AND WENT BACK FOR SOME MEAT TENDER I ZER. 

YOU'D BETTER HURRY UP.": FOR T = 1 TO 1000: NEXT : HOME : PRINT " " 

; : POKE 34,0: SPEED* 255 



IF CO = 15 THEN SPEED* 100: POKE 34, PEEK (37): PRINT "THE ALIEN HA 
S GONE OUT FOR PIZZA. IF THAT DOESN'T KILL HIM, HE -'LL BE BACK 
TO EAT YOU WITHIN 5 MINUTES."?: FOR T = 1 TO 1000: NEXT : HOME : PRINT 
" "?: POKE 34,0: SPEED* 255 

IF CO = 20 THEN SPEED* 100: PRINT : PRINT : VTAB 22: POKE 34, PEEK 
(37): PRINT "THE ALIEN IS NIBBLING ON YOUR LEFT LEG!"?: FOR T * 1 TO 
1000: NEXT : HOME : PRINT " "?: POKE 34,0: SPEED* 255 



IF CO = 25 THEN SPEED* 100: PRINT : PRINT : VTAB 22: POKE 34, PEEK 
(37): PRINT "THE ALIEN IS NOW CHEWING ON YOUR RIGHT LEG! IF YOU WAN 
T TO STOP, YOU CAN PRESS <ESC>,"? 

IF CO = 25 THEN PRINT " BUT WE'RE GETTING OFF THIS SHIP! GOOD LUCK! 

!": FOR T = 1 TO 2000: NEXT : HOME : PRINT " "?: POKE 34,0: SPEED* 

% 



265 IF CO = 30 THEN TEXT : HOME : VTAB 10: PRINT "THE ALIEN GOT YOU!": 
"MOTHER TUMS IS MAKING AN EMERGENCY": PRINT "FLIGHT.": PRINT "(POOR 
ALIEN)": GOTO 1540 
270 PRINT IQ*? 

280 HTAB 3 

290 REM NOW WE GET THE GUESS 
300 Bl* = " " 



310 FOR X = 1 TO IQ + 1 
320 GET B* 

330 T = PEEK ( - 16336) + PEEK ( - 16336) + PEEK ( - 16336) + 
16336) + PEEK ( - 16336) + PEEK ( - 16336) 

340 IF B* = CHR* (27) THEN PRINT "CYANIDE — SIZZLE": GOTO 1540 
350 IF X = IQ + 1 THEN 500 

360 IF B* = CHR* (24) THEN HTAB 3: GOTO 270 

370 IF B* = CHR* (8) THEN 440 

380 IF B* < "1" OR B* > "9" THEN PRINT CHR* (7)?: GOTO 320 

390 IF N ( VAL (B*)) * 1 THEN PRINT CHR* (7)?: GOTO 320 

400 N ( VAL ( B* ) ) = 1 
410 PRINT B*? 

420 Bl* = Bl* + B* 



PEEK ( 



PRINT 
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430 NEXT 

440 IF X = 1 THEN 320 

450 PRINT CHR* (3) CHR* (95) CHR* (8); 

460 N ( VAL ( RIGHT* (Bl*,l))) = 0 
470 Bl* = MID* ( B 1 * » 1> LEN (Bl*> - 1) 

480 X = X - 1 
490 GOTO 320 

500 IF B* = CHR* (24) THEN 200 

520 IF B* = CHR* (8) THEN 440 

530 IF B* = CHR* (13) THEN 550 

540 PRINT CHR* (7)?s GOTO 320 

550 REM EVALUATE 

555 CO = CO + 1 

560 R = 0 s P = 0 

570 FOR X = 1 TO IQ 

580 S* = MID* ( A* 7 X * 1 ) 

590 FOR C = 1 TO IQ 

600 IF S* = MID* (B1*,C,1) THEN 630 
610 NEXT 
620 C = 0 

630 IF X = C THEN P = P + is GOTO 650 
640 IF C <C > 0 THEN R = R + 1 
650 NEXT X 
660 PRINT " 

670 IF P = 0 THEN 710 
680 FLASH 

690 FOR N = 1 TO P: PRINT "*"5 
700 NEXT s NORMAL 
710 IF R = 0 THEN 740 
720 FOR N = 1 TO R: PRINT "#" ; 

730 NEXT 
740 REM 
750 PRINT 

760 IF P = IQ THEN 1560 
770 GOTO 190 
780 TEXT : HOME 
790 VTAB 5 

800 FIT AB 18s PRINT "ALIEN" 

810 PRINT 

820 A* = "YOU ARE ON THE SPACESHIP NIMROD. YOU" 

330 GOSUB 151 0 

840 A* = "HAVE A FEW MINUTES TO BREAK THE CODE" 

850 GOSUB 1510 

860 A* = "NUMBER THAT WILL OPEN THE WEAPONS" 

870 GOSUB 1510 

880 A* = "VAULT SO THAT YOU CAN GET OUT AN ANTI-" 

890 GOSUB 1510 

900 A* = "MATTER LASER RIFLE - THE ONLY WEAPON" 

9 1 0 GOSUB 151 0 

920 A* = "THAT WILL SAFELY DESTROY THE ALIEN." 

9 3 0 G 0 SU B 151 0 
940 PRINT 

950 A* = "THE ALIEN HAS KILLED THE REST OF THE" 

960 GOSUB 1510 

970 A* = "CREW AND IS NOW SEARCHING FOR YOU. " 

9 8 0 G 0 S U B 151 0 

990 A* = "HE WANTS YOU FOR YOUR GOURMET QUALITIES." 

1 0 0 0 G 0 S U B 151 0 

1010 FOR T = 1 TO 500: NEXT 

1 0 2 < } G 0 S U B 1 6 2 0 

1030 PRINT 

1040 VTAB 24s PRINT "PRESS SPACE TO GO ON. " ‘ : GET A*: 
1050 VTAB 5 



HOME 
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1060 A* = "THE SECRET CODE IS MADE UP OF NUMBERS" 
1070 GQSUB 1510 

1080 A* = "FROM 1 TO 9 IN ANY ORDER, NONE REPEAT-." 
1090 GOSUB 1510 



1100 A* = "ED. MOTHER, THE SHIP'S COMPUTER, WILL" 

1110 GOSUB 1510 

1120 A* = "ALLOW YOU TO DECIDE THE NUMBER OF" 

1130 GOSUB 1510 

1140 A* = "DIGITS (2 TO 9) IN THE CODE." 

1150 GOSUB 1510 

1160 VTAB 24: PRINT "PRESS SPACE TO GO ON. " *, : GET A*: HOME 
1170 VTAB 5 

1180 A* = "ONE LAST WORD: IF THE ALIEN GETS YOU" 

1190 GOSUB 1510 

1200 A* = "BEFORE YOU BREAK THE CODE, YOU CAN" 

1210 GOSUB 1510 

1220 A* = "PUSH THE <ESC> BUTTON FOR CYANIDE GAS" 

1230 GOSUB 1510 



1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1 320 
1330 
1340 
1350 
1360 
1370 
1 380 
1390 
1 400 
1410 
1420 
1430 
1440 
1450 
1 460 
1470 
1 480 
1 490 
1 500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1 660 



1670 



A* = "WHICH WILL KILL YOU AND THE ALIEN AT" 

GOSUB 1510 

A* = "THE SAME TIME." 

GOSUB 1510 

VTAB 24: PRINT "PRESS SPACE TO GO ON. " *, : GET A*: HOME 
VTAB 5 

PRINT " AFTER YOU ENTER YOUR GUESS AND PRESS" 

PRINT "<RETURN>, THE COMPUTER WILL EVALUATE" 

PRINT "YOUR GUESS AS FOLLOWS:" 

PRINT : PRINT 

PRINT " #: -THIS MEANS ONE OF YOUR NUMBERS" 

PRINT " IS IN THE CODE, BUT IN THE" 

PRINT " WRONG PLACE." 

PRINT : PRINT 
PRINT " 

FLASH : PRINT "*"*, 

NORMAL 

PRINT ": -THIS MEANS ONE OF YOUR NUMBERS" 

PRINT " IS BOTH IN THE CODE AND IN THE" 

PRINT " RIGHT PLACE." 

PRINT : PRINT 

PRINT "NO SYMBOLS MEANS THAT NO NUMBER IN YOUR" 

PRINT "GUESS IS IN THE CODE." 

PRINT : PRINT "PRESS ANY KEY TO GO ON. " *, : GET A* 

TEXT : HOME : VTAB 5 

RETURN 

STOP 

FOR X = 1 TO LEN ( A* ) 

PRINT MID* ( A* , X , 1 ) ; : GOSUB 1 7 1 0 
NEXT : PRINT : RETURN 
SF‘EED= 255: GOTO 1590 



REM 

FLASH : PRINT "YOU HAVE THE WEAPON! THE ALIEN IS 1 
PRINT "OUT OF ORDER-PERMANENTLY! " 

PRINT : NORMAL 

INPUT "DO YOU WANT TO PLAY AGAIN? (Y/N) " ; A* 

IF LEFT* ( A* , 1 ) < > "N" THEN 50 

GOT 0 60000 



REM 

FOR T = 1 TO 50*. D = PEEK ( - 163:36):. NEXT- 



RETURN 



END _ 

POKE 771,173: POKE 77 2 , 48 V 
: POKE 776,4: POKE 777,198: 
POKE 780,8: POKE 781,202: 



~ P 0 1< POKE 774,136: 
POKE 778,1: POKE 779,240: 
POKE 782,208: POKE 733,246: 



POKE 775,208 
POKE 784,166: 



55 





POKE 


785,0: POKE 


7U6 ,\76 : PuK.E 787 , 


1 680 


CC = 2 (1 / 12) 




1690 


POKE 


739 , 96 : 




1700 


RETURN 




1 7 1 0 


REM 


RANDOM "BLIP 


m 


1720 


POKE 


0 , RND ( 1 ) * 


50 + 50 : POKE 1 , 


1730 


RETURN 




1740 


REM 


SCALE NOTE PLAYER 


1750 


REM 


ASSUMES N= 114 AS A=440 


1760 


ON N 


GOTO 1770,17 


30, 1790, 1800, 1310 




80, lS'l 


■'0 




1770 


POKE 


0, 192: GOTO 


1930 


1780 


POKE 


0 , 1 3 1 : GOT 0 


1 930 


1790 


POKE 


0,171: GOTO 


1 930 


1300 


POKE 


0, 162: GOTO 


1930 


1 8 1 0 


POKE 


0, 153: GOTO 


1 930 


1 820 


POKE 


0, 144: GOTO 


1 930 


1830 


POKE 


0, 136: GOTO 


1930 


1840 


POKE 


0, 128: GOTO 


1930 


1 850 


POKE 


0 , 121: GOT 0 


1930 


I860 


POKE 


0,114: GOTO 


1 930 


1870 


POKE 


0 , 1 07 : GOT 0 


1930 


1 380 


POKE 


0,101: GOTO 


1 930 


1890 


POKE 


0 ,96: G 0 TO 19 3 0 


1900 


REM 


PLAY SCALE 




1910 


FOR 


N = 1 TO 13: 


GOSUB 1760: NEXT 


1920 


RETURN 




1930 


POKE 


1,L*. CALL 771: RETURN 



60000 

60020 

60030 

60040 

3 

3 



REM 

PRINT 

IF DISK THEN 
TEXT : HOME 



PRINT "RUN APPLE BARREL SOFTWARE" 
VTAB 12 

, / , u t L. - V_- v. . . - a 

> 



L 



/ l 



LOn A- o ) T o I 2 - L —/ 



1 POKE - 16293,0 

2 HI = PEEK (115) + PEEK (116) * 256 



20 



3 DESK = ( PEEK (994) + PEEK (1001)) = 192 
10 HI MEM: 3192 

POKE 790,1: POKE 791,0: POKE 792,4: POKE 793,0: POKE 794,36: POKE 795 
,36: POKE 796,44: POKE 797,44: POKE 793,44: POKE 799,44: POKE 300,36 
: POKE 801,45: POKE 802,62: POKE 303,46: POKE 804,53: POKE 805,53: POKE 

806 , 53 

POKE 807,53: POKE 808,54: POKE 809,54: POKE 810,54: POKE 311,54: POKE 
812,62: POKE 813,63: POKE 814,63: POKE 815,63: POKE 816,63: POKE 817 
,39: POKE 818,36: POKE 819,36: POKE 820,54: POKE 821,54: POKE 822,46 

: POKE 823,45 _ ^ ^ 

POKE 824,54: POKE 825,55: POKE 826,55: POKE 827,55: POKE 828, 6 j: POKE 
829,45: POKE 830,45: POKE 831,39: POKE 832,44: POKE 833,44: POKE 834 
~ 36: POKE 835,45: POKE 836,45: POKE 837,45: POKE 838,61: POKE 839,63 

: POKE 840 ,55 . , _ _ 



30 



40 



50 


POKE 841,46: 


POKE 842,46: POKE 843,46: 




846,63: POKE 


847 , 63 : POKE 348 , 0 


60 


POKE 232,22: 


POKE 233,3 


70 


TEXT : HOME : 


NORMAL : SPEED- 255 


80 


REM LUNAR 




90 


GOSUB 1520 




100 


L = 9: GOSUB 


1760 


1 10 


HGR 




120 


HOME : POKE 


34 , 20 : HOME 


130 


HCOLOR= 2 




140 


HPLOT 20,20 


TO 20 , 80 



56 



150 


HPLOT 


2 1 , 20 ' 


TO 21,80 


1 60 


HPLOT 


TO 80 


, 80 


170 


HPLOT 


100, 40 


TO 100,30 


180 


HPLOT 


101,40 


TO 101,80 


190 


HPLOT 


TO 140,80 


200 


HPLOT 


TO 140,40 


210 


HPLOT 


141, 40 


TO 141,80 


220 


HPLOT 


1 60 , 40 


TO 160,80 


230 


HPLOT 


161,40 


TO 161,80 


240 


HPLOT 


160,40 


T 0 200 , 80 


250 


HPLOT 


200 , 80 


TO 160,40 


260 


HPLOT 


200 , 80 


TO 200,40 


270 


HPLOT 


220 , 80 


TO 240,40 


280 


HPLOT 


221,80 


TO 241,40 


290 


HPLOT 


240 , 40 


TO 259,80 


300 


HPLOT 


239, 40 


TO 258,80 


310 


HPLOT 


230 , 60 


TO 250,60 


320 


FOR X 


= 1 TO 


1000s NEXT 



330 ROT = 0: SCALE= 1: FOR C = 1 TO 100 STEP 2 
340 HCQLOR= 3 
350 DRAW 1 AT C,C 

360 IF C / 9 < > I NT (C / 9) THEN 390 

370 L = 9s N = is GOSUB 1610s L = 5s N = 13s GOSUB 1610 

380 GOTO 400 

390 FOR X = 1 TO 100s NEXT 
400 HGOLGR= Os DRAW 1 AT C,C 
410 NEXT 
420 GOSUB 1030 

430 HCOLOR= is REM GREEN CHEESE BORDER 

440 FOR X = 0 TO 4 

450 HPLOT X, X TO X, 159 - X 

460 HPLOT X, X TO 279 - X, X 

470 HPLOT X, 159 - X TO 279 - X, 159 - X 

480 HPLOT 279 - X, 159 - X TO 279 - X, X 

490 NEXT 

500 HTAB 3 

510 PRINT "FUEL VEL D I ST BURN TIME" 

520 POKE 34,21 

530 REM SET INITIAL CONDITIONS 

540 DEF FN B(W) = I NT ( F'DL (0) / 256 * 10) 

550 FUEL = 120s VEL = - 50: D 1ST = 500s TIME = Os BURN = FN B(0) 

560 REM UPDATE CONDITIONS 

570 IF FUEL < 0 THEN FUEL ' = 0 

580 VTAB 22s HTAB 3s PRINT FUEL" " 5 

590 HTAB Us PRINT VEL" 

600 HTAB 18s PRINT DIST" 

610 HTAB 26 

620 IF FUEL = 0 THEN 640 

630 IF PEEK ( - 16287) > 127 THEN F = is INVERSE s GOTO 650 
640 F = 0 

650 PRINT BURN? s NORMAL 
660 HTAB 34s PRINT TIME" 

670 BURN = FN B(0) 

680 REM DRAW 

690 HCOLOR= 3 

700 DRAW 1 AT TI * 2 + 6,144 ~ DIST / 600 * 120 
710 IF I NT (TIME / 2) < > TIME / 2 THEN 740 

720 N = 1 s L - 9s GOSUB 1610s L = 4:N = 13s GOSUB 1610 
730 GOTO 750 

740 FOR X = 1 TO 100s NEXT 
750 IF FUEL < BURN THEN B1 = FUEL 

760 IF F THEN B1 = BURNS GOTO 780 

770 B 1 = 0 



7 SO REM 

790 FUEL = FUEL - B1 
SOO B1 = B1 #■ 5 
810 ACC - B1 -5 
820 CD = D I ST 

330 BIST = I NT (D1ST + VEL + ACC / 8) 
840 VEL = VEL + ACC 



850 HCOLOR= 0 

360 DRAW 1 AT TI * 2 + 6,144 - OD / 600 * 120 

370 TI = TI + .5 

830 IF DIST < = 0 THEN 920 

390 IF DIST > = 675 THEN 940 

900 GOT 0 560 

9 1 0 END 

920 IF VEL = 0 AND DIST = 0 THEN 940 

930 ROT = 16*. HCOLOR= 3s DRAW 1 AT TI * 2 + 11,143 

940 REM PRINT FINAL CONDITIONS 

950 VTAB 22 

960 HTAB 3: PRINT FUEL" 

970 HTAB 11: PRINT VEL" 

930 HTAB 13s PRINT DIST" 

990 HTAB 26: PRINT BURN" 

1000 HTAB 34: PRINT TIME" 

1010 POKE 0 , 3 1 : L = 0: COSUB 1770: GOSUB 1770: GOSUB 1770: 



1 020 
1 030 
1 080 
1 090 
1 100 
1 1 10 
1 1 20 
1130 
1 1 40 
1 1 50 
1 160 
1170 
1 180 
1190 
1200 
1210 
1220 
1 230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1 400 
1410 
1 420 
1 430 



1770 

GOTO 1780 

POKE 34,20: HOME 

FOR X = 1 TO 5000: NEXT 

TEXT : HOME 

PRINT : PRINT 

HTAB 14: PRINT "INSTRUCTIONS" 

PRINT : PRINT 

PRINT " YOU ARE THE PILOT OF A NEW MODEL XXY3" 
PRINT "LUNAR VEHICLE. THE CRAFT HAS DEVELOPED" 
PRINT "A MINOR PROBLEM — THE GUIDANCE COMPUTER" 
PRINT "HAS FAILED. YOU MUST NOW ATTEMPT TO" 

PRINT "LAND ON THE LUNAR SURFACE FOR REPAIR" 

PRINT "WORK." 

PRINT 

PRINT " YOU CONTROL THE CRAFT BY BURNING FUEL" 
PRINT "AT REGULAR PERIODS. IF YOU BURN TOO" 

PRINT "MUCH FUEL, YOU MAY BE SHOT OUT OF THE" 

PRINT "MOON'S GRAVITY AND INTO THE COLD, DARK" 
PRINT "REACHES OF SPACE. IF YOU BURN TOO " 

PRINT "LITTLE FUEL, YOU WILL REACH THE LUNAR" 

PRINT "SURFACE-FOREVER." 

VTAB 24: PRINT "PRESS ANY KEY TO GO ON. " *, : GET A$ 

HOME 

VTAB 4 

PRINT " THE AMOUNT OF FUEL TO BE BURNED" 

PRINT "IS CONTROLED BY TURNING PADDLE 0. YOU" 

PRINT "MAY BURN AS MUCH AS 9 UNITS PER 1/2" 

PRINT "SECOND OR AS LITTLE AS 0 UNITS PER 1/2" 
PRINT "SECOND. PRESSING THE PADDLE 0 PUSHBUTTON"*, 
PRINT "WILL IGNITE THE FUEL. " 

PRINT : PRINT 

PRINT "PRESS SPACE TO BEGIN COUNTDOWN " *, : GET A$ 

HOME : VTAB 12 

PRINT "TIME REMAINING:"*, 

FOR X = 9 TO 1 STEP - 1 
HTAB 20: PRINT X‘, 

FOR CX = 1 TO 1000: NEXT : NEXT 
CALL 62450 



GOSUB 1770: 



GOSUB 



58 



1440 POKE - 16304,0 
1450 HOME : POKE 34,20: HOME 
1460 ROT = 0 
1470 RETURN 



1 430 
1490 
1500 
1510 
1520 

1530 



1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1 620 
1 630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 



1820 
1821 
1830 
181 NT 



1930 



2000 

2005 

2010 

2020 



END 

TEXT : HOME : VTAB 12 

END 

END 

POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,205: 

: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: 

POKE 780,8: POKE 781,202: POKE 732,208: POKE 783,246: POKE 784,166: 
POKE 735,0: POKE 736,76: POKE 737,3: POKE 788,3: 

POKE 789,96: 

RETURN 

REM RANDOM "BLIP" 

POKE 0, RND (1) * 50 + 50: POKE 1,8: CALL 771 
RETURN 

REM SCALE NOTE PLAYER 
REM ASSUMES N=U5 AS A=440 

ON N GOTO 1 620 , 1 630 , 1 640 , 1 650 , 1 660 , 1 670 , 1 680 , 1 690 , 1700 ,1710,1 720 , 1 7 
30, 1740 



POKE 


0, 192: 


GOT 0 


1770 


POKE 


0, 132: 


GOTO 


1770 


POKE 


0, 173: 


GOTO 


1770 


POKE 


0, 164: 


GOTO 


1770 


POKE 


0, 155: 


GOTO 


1770 


POKE 


0, 147: 


GOT 0 


1770 


POKE 


0, 139: 


GOT 0 


1770 


POKE 


0, 132: 


GOTO 


1770 


POKE 


0, 124: 


GOTO 


1770 


POKE 


0, 115: 


GOTO 


1770 


POKE 


0,110: 


GOTO 


1770 


POKE 


0, 103: 


GOTO 


1770 


POKE 


0,96: 


GOTO 


1770 


REM 


PLAY S 


CALE 





FOR N = 1 TO 13: GOSUB 1610: NEXT 
POKE 1,L: CALL 771: RETURN 
TEXT : HOME 
VTAB 10 

IF DIST > 0 THEN 1910 

IF FUEL = 120 THEN PRINT "SENSORS REPORT THAT YOU DID NOT BURN ANY 
FUEL DURING THE LAST RUN. YOU MUST PRESSTHE BUTTON BEFORE ANY FUEL W 
ILL BE USED.": GOTO 1860 

IF VEL = 0 AND DIST = 0 THEN PRINT "A PERFECT LANDING! !!!!!!!!!!!! 
!•!••!!!»": GOTO 1860 

IF DIST < 0 AND VEL > - 3 THEN PRINT "A GOOD LANDING!": GOTO 186 

0 

IF DIST > - 3 AND VEL > - 5 THEN PRINT "CLOSE — VERY CLOSE": GOTO 

1 860 

"YOUR CRAFT HAS BEEN BEEN DAMAGED BY A F'A 
SSING EARTH-MARS SHUTTLE. YOU MAY TRY AGAIN AFTER YOU SETTLE THE COU 
RT COSTS.": GOTO 1860 

PRINT "SENSORS SHOW YOUR NEXT DESTINATION TO BEPLUTO. HAVE A GOOD T 
RIP.": GOTO 1860 
HIMEM: HI 
PRINT 

IF DE THEN PRINT "RUN APPLE BARREL SOFTWARE" 

END 




PEEK (116) * 256 



59 



5 



DISK = 
POKE 



PEEK (994) + PEEK (1001)) = 192 
1 6298 7 0 



10 
20 
30 
40 
50 
60 
70 
SO 
90 
1 00 
110 
120 
130 
140 
150 
1 60 
170 
1 SO 
190 
200 
210 



GOSUB S70 

DEF FN R ( X ) = INT ( RND (1) * X + 1) 

TEXT : HOME 
VTAB 5 

HTAB 16: PRINT "DYNAMITE" 

PRINT 

PRINT "WELCOME TO DYNAMITE! THE GAME IS VERY" 

PRINT "SIMPLE. THERE ARE 15 STICKS OF DYNAMITE" 

PRINT "IN AN ABANDONED MINE. ALL OF THEM ARE" 

PRINT "UNLIT EXCEPT THE LAST ONE. THE GHOST" 

PRINT "OF YOUR DEAD PARTNER HAS LIT THE LAST" 

PRINT "STICK OF DYNAMITE AND NOW HE WANTS TO" 

PRINT "PLAY A GAME WITH YOU (HA HA)." 

PRINT : PRINT "EACH OF YOU TAKE TURNS TAKING STICKS 
PRINT "DYNAMITE FROM THE PILE, UP TO 3 STICKS" 

PRINT "IN A TURN. IF YOU TAKE THE LAST STICK," 

PRINT "YOU'LL BE BLOWN UP AND HAVE TO TAKE YOUR"*, 
PRINT "PARTNER'S PLACE IN THE MINE — FOREVER." 

VTAB 24*. PRINT "PRESS ANY KEY TO GO ON. " *, : GET A* 
TEXT : HOME : VTAB 5 
GOTO 250 



220 N = 15 
230 M = 3 



OF " 



240 RETURN 

250 GOSUB 220 

260 IF M > = N THEN 710 

270 IF M = 1 THEN 710 

280 IF M = 0 AND N = 0 THEN 710 

290 IF M = 0 THEN 710 

300 VTAB 5 

310 PRINT 

320 G = 1 

330 INPUT "DO YOU WANT TO GO FIRST? (Y/N) 

340 GOSUB 220 

350 IF LEFT* (A*,l) = "Y" THEN 540 

360 REM I MOVE FIRST 

370 GOSUB 720: REM UPDATE 

3S0 IF RND (1) < 1 / G THEN 510 

390 REM STRATEGY 

400 L = N / (M + 1 ) 

410 I = L - INT (L) 

420 0. = INT (I * (M + 1) + .5) 

430 IF Q = 0 THEN Q = M: GOTO 460 

440 Q = Q - 1 

450 IF Q = 0 THEN 510 

460 PR INT "I •' LL TAKE " Q " . " 

470 N ~ N - Q 

4 SO FOR T = 1 TO 2000: NEXT 

490 IF N = 0 THEN 690 

5 0 0 G 0 T 0 5 4 0 

510 REM PICK AT RANDOM 

520 IF N < M THEN Q = FN R(N): GOTO 460 
530 Q - FN R(M): GOTO 460 
540 REM HUMAN PICKS 
550 GOSUB 720 

560 POKE 34, PEEK (37) + 1*. HOME 

570 INPUT "HOW MANY WILL YOU TAKE? " * A* 

5S0 PRINT 

590 D = INT ( VAL. (A*)): IF D < = 0 THEN 

!": GOTO 570 

600 IF D > M THEN PRINT "THAT'S TOO MANY 



? A* 



PRINT "SORRY, THAT WON'T 
THE MOST YOU CAM TAKE" 



WORK 



60 



610 IF D > M THEN PRINT "IS "M" . " : GOTO 570 

620 IF D > N THEN PRINT "THERE AREN'T THAT MANY TO TAKE!": GOTO 570 

630 N = N - D: IF N = 0 THEN 650 

640 GOTO 370 



650 TEXT : HOME : VTAB 12 
660 HTAB 16: PRINT "YOU LOSE" 

665 POKE - 16302,0 

667 FOR X = 1 TO 20: POKE - 16304,0: FOR TZ = 0 TO ISO: NEXT : POKE 
16303,0: FOR TZ = 0 TO ISO: NEXT : NEXT 
670 INPUT "DO YOU WANT TO PLAY AGAIN? (Y/N) " *, A* 

680 IF LEFT % ( A* , 1 > = "Y" THEN G = G + l: GOTO 330 
6 S 5 G 0 T 0 1 0 0 0 0 

690 TEXT : HOME : VTAB 12: PRINT "I LOSE. YOU GET ALL THE GOLD, PARTNER 1 
" : GOTO 670 
700 STOP 
710 PRINT 

720 REM UPDATE SCREEN 

730 TEXT : HOME 

740 VTAB 10 

750 FOR X = 1 TO N 

760 PRINT " *" ? : GOSUB 920 

770 NEXT 

780 PRINT 

790 IF N = 1 THEN 820 

800 PRINT "THERE ARE "N" STICKS IN THE PILE." 

810 RETURN 

820 PRINT "THERE IS 1 STICK IN THE PILE.": RETURN 
830 REM RASBERRY 



840 FOR T = 1 TO 50 :D = PEEK ( - 16336): NEXT 
850 RETURN 
860 END 



870 

O O M 

ij ij i„i 



POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,208 
POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: 

POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: 
785,0: POKE 786,76: POKE 787,3: POKE 788,3: 



OCj 



90 CC = 2 -• (1 / 12) 



POKE 



900 POKE 789,96: 

910 RETURN 

920 REM RANDOM "BLIP" 



930 


POKE 


0, RND (1) * 


50 + 


50: POKE 1 


940 


RETURN 






950 


REM 


SCALE NOTE PLAYER 




960 


REM 


ASSUMES N=1 14 AS 


A=440 


970 


ON N 


GOT 0 980 , 990 


, 1000, 


1010, 1020, 




1 100 








980 


POKE 


0, 192: GOTO 


1 1 40 




990 


POKE 


0,181: GOTO 


1 1 40 




1000 


POKE 


0 , 171: GOT 0 


1 1 40 




1010 


POKE 


0, 162: GOTO 


1 1 40 




1020 


POKE 


0, 153: GOTO 


1140 




1030 


POKE 


0, 144: GOTO 


1 1 40 




1040 


POKE 


0, 136: GOTO 


1140 




1050 


POKE 


0, 128: GOTO 


1140 




1060 


POKE 


0,121: GOTO 


1 1 40 




1070 


POKE 


0,114: GOTO 


1 1 40 




1080 


POKE 


0,107: GOTO 


1140 




1090 


POKE 


0,101: GOTO 


1140 




1100 


POKE 


0,96: GOTO 


1140 




1110 


REM 


PLAY SCALE 






1120 


FOR 


M = 1 TO 13: 


GOSUB 


970: NEXT 


1130 


RETURN 






1140 


POKE 


1,L2 CALL 771: RETURN 


1 0000 


HIMEM: HI 







1,8: CALL 771 



1070, 1080, 1090, 



61 



10010 PRINT 

10020 IF DISK THEN PRINT "RUN APPLE BARREL SOFTWARE" 
10030 TEXT : HOME : VTAB 12: END 



T 



-C 



1 HCOLOR= 3 

10 DISK = ( PEEK (994) + PEEK (1001)) = 192 
20 HI = PEEK (115) + PEEK (116) * 256 
30 HI MEM: 8192 
35 QO = 0 

40 REM HI -RES FUNCTION 
50 REM PLOTTER 

60 REM STICK FUNCTION IN LINE 1000 
70 TEXT : HOME 

SO VTAB 3: PRINT "FOR QUICK DEMO, PRESS RETURN IN ANSWER TO ALL QUEST 10 
NS.": VTAB S 

90 PRINT "THE CURRENT FUNCTION LOOKS LIKE THIS:" 

100 LIST 1000, 1499 
110 POKE 34, PEEK (37) 

120 INPUT "IS THIS THE FUNCTION YOU WANT? (Y/N) " ? A* 

130 IF LEFT* ( A* , 1 ) = "N" THEN 1520 
140 HGR 

150 POKE 34,20: HOME 

160 INPUT "ENTER Y MAXIMUM "; 0.1* 

170 Q1 = VAL (Ql*): IF Ql* = "" THEN Q1 = 1 

ISO INPUT "ENTER Y MINIMUM " *, Q2* 

190 Q2 = VAL ( Q2* ) 

200 IF Q2* = "" THEN Q2 = - 1 

210 IF Q2 > = Ql THEN PRINT "MINIMUM IS GREATER THAN MAX IMUM-PLEASE R 

E-ENTER": GOTO 160 
220 INPUT "ENTER X MINIMUM " 5 Q3* 

230 Q3 = VAL (Q3*): IF Q3* = " " THEN Q3 = - 10 

240 INPUT "ENTER X MAXIMUM " ? Q4* 

250 Q4 = VAL (Q4*): IF Q4* = " " THEN Q4 = 10 

260 IF 0.2 > = Ql THEN PRINT "MINIMUM IS GREATER THAN MAX IMUM-PLEASE R 

E-ENTER": GOTO 220 

270 IF 0.2 < = 0 AND Ql > = 0 THEN INPUT "WOULD YOU LIKE A Y AXIS ?"5 A 

*: IF LEFT* (A*,l) = "Y" THEN QQ = 1 

275 IF LEFT* (A*,l) < > "Y" THEN QQ = 0 

280 IF Q3 < = 0 AND Q.4 > = 0 THEN INPUT "WOULD YOU LIKE AN X AXIS? "5 

A*: IF LEFT* (A*,l) = "Y" THEN QX = 1 

285 IF LEFT* (A*,l) < > "Y" THEN QX = 0 

290 IF QX THEN 1590 

300 IF QQ THEN 1800 

310 REM DO THE PLOT 
320 QX = 0 

330 FOR X - Q3 TO Q4 STEP (Q4 - Q3) / 279 
340 GOSUB 1000 
350 QY = Y - 0.2 

360 IF QY < 0 THEN PRINT "PLOT AT "X" IS OUT OF THE AREA" : QO = 0: GOTO 
420 

370 QY = QY / (Ql - Q2) * 159 

380 QY = 159 - QY 

390 IF QY < 0 THEN 360 

400 IF NOT QO THEN HF'LOT QX,QY:QO = 1 
410 IF QO THEN HPLOT TO QX , QY 
420 QX = QX + 1 
430 NEXT 

440 INPUT "ANOTHER PLOT? (Y/N) " ; A* 

450 IF LEFT* (A*,l) = "Y" THEN 30 
460 GOTO 2000 
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1 000 
1500 
1520 
1530 
1540 

1 550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 
1 530 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 
1630 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1300 
1 8 1 0 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
20 1 0 
2020 



Y = COS (X) 

RETURN 

REN NO 7 I WANT SOMETHING ELSE 
TEXT : HOME 
VTAB 4 

PRINT "ENTER YOUR FUNCTION BY TYPING 1000," 

PRINT "THEN YOUR FUNCTION. 1000 IS THE" 

PRINT "LINE NUMBER OF THE PROGRAM. DO NOT" 

PRINT "USE LINE NUMBERS OVER 1499. DO NOT" 

PRINT "USE VARIABLES BEGINNING WITH Q. PRESS" 

PRINT "RETURN AFTER ENTERING 1000 AND YOUR" 

PRINT "FUNCTION. THEN . TYPE RUN AND PRESS" 

PRINT "RETURN. 

DEL 1000,1499 

REM DRAW X AXIS, TICS 

H COLOR = 3 

QA = ABS (0.2) / (01 - 02) 

OZ = 159 - OA * 160 
HPLOT 0,QZ TO 279, OZ 

INPUT "WOULD YOU LIKE 'TICS' ON THE X AXIS? " 5 A* 

IF LEFT* ( A* , 1 ) < > "Y" THEN 300 

INPUT "ENTER 'TIC' INTERVAL " ? OT 

IF OT C = 0 THEN PRINT "OUT OF RANGE": GOTO 1660 
IF 03 < = 0 AND 04 > = 0 THEN 1760 
FOR OW = 03 TO 04 STEP OT 
ON = (OW - 03) / (04 - 03) 

OY = ON * 279 
HCOLOR= 3 

HPLOT OY , OZ - 3 * (OZ > = 3) TO OY,OZ + 3 * (01 < = 156) 

NEXT 

GOTO 300 

REM COMPUTE "DIFFERENT" START 
OL = ABS (03 / OT ) : OL = I NT (QL):QL = OL * QT:QL = - OL 

FOR OW = OL TO 04 STEP OT 
GOTO 1700 

REM DRAW Y AXIS, ETC 
HCQLQR= 3 

QA = ABS (03) / (04 - 03) 

OZ = OA * 280 
HPLOT OZ , 0 TO OZ , 159 

INPUT "WOULD YOU LIKE 'TICS' ON THE Y AXIS " ‘ A* 

IF LEFT* ( A* , 1 ) < > "Y" THEN 310 

INPUT "ENTER 'TIC' INTERVAL " OT 

IF OT C = 0 THEN PRINT "OUT OF RANGE": GOTO 1870 
IF 02 < = 0 AND 0.1 > = 0 THEN 1960 
FOR OW = 02 TO 0.1 STEP OT 
ON = (OW - 02) / (01 - 0.2) 

OY = 159 - ON * 159 

HPLOT OZ - 3 * (OZ > = 3 ) , OY TO OZ + 3 * (OZ < = 296) , OY 

NEXT 

GOT 0 3 1 0 

REM DIFFERENT START 

OL = ABS (02 / GT):QL = I NT (QL):QL = OL * OT : OL = - OL 
FOR OW = OL TO 01 STEP OT 
GOTO 1910 
PRINT 

IF DISK THEN PRINT "RUN APPLE BARREL SOFTWARE" 

TEXT : HOME : VTAB 12 



1 

1 

1 DISK 






( PEEK (994) + PEEK (1001)) = 192 
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5 HI = 


PEEK 


( 1 1 


5) 


+ 


10 


ONERR GOTO 


•*"j «"*» 


0 


30 


HIMEM: 8 


192 






40 


HGR 










45 


POKE 


! 34, 


20: 


HOME 


46 


PRINT : 


PRINT 


II 


47 


PRINT " 






| 


50 


XC = 


280 


/ 2 


— 


1 


60 


YC = 


159 


/ 2: 


REM 


70 


DEF 


FN 


R ( X ) 


== 




SO 


X = 


FN R 


( XC ) 


: Y 


= 


90 


HCOLOR= 


•*”i 

.j 






100 


XD = 


FN 


R ( 3 


) 


— 


1 10 


IF 


FN 


R( 100) 




115 


IF 


PEEK ( 


~ 


16 


1 20 


YD = 


FN 


R ( 3 


) 


— 


130 


L = 


FN 


R ( XC 


/ 


*“*i 

jL. 



PEEK (116) * 256 



PRESS ANY KEY FOR NEW PATTERN' 
PRESS CCTRL-O TO STOP" 



INT ( RND (1) * X + 1) 

FN R ( YC ) 

2: REM PICK A NEW DIRECTION 
3 THEN 40 

384) > 127 THEN GET WT: GOTO 40 



140 FOR N = 1 TO L 

150 IF X + XD < 0 THEN 100 

160 IF X + XD > XC THEN 100 

170 X = X + XD 

ISO IF Y + YD < 0 THEN 100 

190 IF Y + YD > YC THEN 100 

200 Y = Y + YD 



210 


HPLOT X , Y 




220 


HPLOT 279 - X , Y 




230 


HPLOT X, 159 - Y 




240 


HPLOT 279 - X, 159 - 


Y 


250 


NEXT 




260 


GOTO 100 




280 


TEXT : HOME 




285 


IF PEEK (222) < > 


255 THEN PRINT "BAD ERROR!": 


300 


HIMEM: HI 




301 


PRINT 




6 1 0 


IF DISK THEN PRINT 


"RUN APPLE BARREL SOFTWARE" 


620 


TEXT : HOME : VTAB 


12 



3 

3 

0 

1 

O 



TEXT : HOME 
GOSUB 5000 
POKE 20000, 1 



5 h M 'e B> o i a) e(< 



-J 



v 



POKE 20001 7 0: POKE 20002,4: POKE 20003*0: POKE 232,32: POKE 





233 


,73 


5 HIMEM 


: 8192 


10 


GOT 0 


290 


30 


REM 


SHAPE BUILDER 


40 


REM 


COPYRIGHT 


50 


REM 




60 


REM 




70 


REM 




80 


REM 




90 


REM 




100 


REM 


BUILD SHAPE 


1 10 


A ( MA ) = 255 


120 


INP 


IJT "ENTER STARTING 


125 


A 1 = 


A 


130 


TR = 


0 : D 1 = 0 


1 40 


FOR 


X - 0 TO MAX 


150 


C — 


A ( X ) 


155 


IF 


C = 0 THEN 1000 


1 60 


IF 


C “ 255 THEN 270 


170 


IF 


TR + 8 D 1 * C > 



; A 



255 THEN 



?30 
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D 1 * C 



1 S U T R — T R + 3 



190 


Q 

II 

Q 


+ 1 


210 


NEXT 




220 


STOP 




230 


POKE A 


, TR 


240 


A = A + 


1 


250 


TR = 0: 


D 1 = 



260 GOTO 170 

270 POKE A,TR: POKE A + 1,0s PRINT "LENGTH: "A 

280 REM ENTER SHAPE 

290 GR s REM I NIT LORES 

300 DIM A (500) 

310 HOME 

320 COLOR = 15 

330 X = 20 :Y = 20 

340 REM SET UP INITAL MODES 

350 C% = "PLOT " : D$ = "UP " : C = HD = 0 

360 0 = SCRN ( X 7 Y ) : COLOR= 2: PLOT X, Y 

370 VTAB 23: PRINT C$,D$;: HTAB 1 

380 GET A$ 



A 1 + 



390 


F = 


PEEK 


( - 16336) + PEEK 


400 


IF 


A$ = 


CHR$ (27) THEN 110 


410 


IF 


A* = " 


X" THEN 500 


420 


IF 


A* = " 


C" THEN 540 


430 


IF 


A* = " 


I" THEN 570 


440 


IF 


A$ = " 


M" THEN 530 


450 


IF 


A$ = " 


J" THEN 590 


460 


IF 


A* 55 " 


K" THEN 600 


470 


IF 


A* 55 " 


" THEN 610 


480 


IF 


A* = " 


R" THEN 720 


490 


PRINT 


: GOTO 370 


500 


C = 


NOT C 




510 


IF 


C THEN 


C* = "PLOT " 


520 


IF 


NOT C 


THEN C% 55 "NOPLOT 



16336) 



530 GOTO 370 

540 VTAB 23: PRINT "CLEAR? " : GET A* 

550 IF A$ C > "Y" THEN HTAB l: GOTO 370 
560 RUN 290 

570 D$ = "UP " : D = 0: GOTO 370 

580 D* = "DOWN " : D = 2: GOTO 370 

590 D* = "LEFT " : D = 3: GOTO 370 

600 D$ = "RIGHT" :D = l: GOTO 370 

610 REM ACTUATE 

611 IF D = 0 AND Y = 0 THEN 360 

612 IF D = 1 AND X = 39 THEN 360 

613 IF D = 2 AND Y = 39 THEN 360 

614 IF D = 3 AND X = 0 THEN 360 

620 COLOR 55 0: PLOT X, Y 

630 COLOR 55 15 



640 IF C THEN PLOT X,Y 
650 ON D GOTO 670,680,690 
660 Y = Y - is GOTO 700 
670 X = X + l: GOTO 700 
680 Y = Y + is GOTO 700 
690 X 55 X - 1 

700 TY = 4 * C + D: A ( MA ) = TY : MA = MA + 1 
710 GOTO 360 



720 

730 

740 

750 

760 
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VTAB 23: PRINT "RESET? " : GET A* 

IF A$ < > "Y" THEN HTAB Is GOTO 370 

HUME : GR 

INPUT "ENTER X,Y ";X,Y 

IF X < 0 OR Y < 0 OR X > 39 OR Y > 39 THEN 750 
MAX = Os REM SMART, HUH? 



2: END 
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770 
780 
1000 
1 020 

1025 

1 026 
1030 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5145 
5150 



HOME 

GOTO 340 

IF D1 = 0 THEN 160 

IF A(X + 1) < 4 AND AtX + 1) < > 0 THEN 160 
IF A ( X + 1) = 0 THEN D1 = 2*. X = X + is GOTO 1030 
D 1 = 1 

POKE A, TR: A = A + 1 : TR = 0: GOTO 210 
VTAB 5 

PRINT "SHAPE BUILDER WILL HELP YOU TO QUICKLY" 
PRINT "DRAW SHAPES IN YOUR PROGRAMS. FULL" 

PRINT "DETAILS ARE IN YOUR MANUAL." 

PRINT 

PRINT "YOUR DIRECTION KEYS ARE I, J, K, AND M, " 
PRINT "WHICH PERFORM THE USUAL FUNCTIONS. " 

PRINT "(I. E. READ THE MANUAL.)" 

PRINT 

PRINT "TO CHANGE FROM PLOT TO NOPLOT USE THE " 
PRINT "X KEY. THE C KEY WILL CLEAR THE SHAPE SO"? 
PRINT "YOU MAY START OVER. R WILL RESET THE " 
PRINT "COORDINATES TO ALLOW YOU TO BEGIN THE" 
PRINT "SHAPE AT A POINT OTHER THAN THE CENTER." 
PRINT 

PRINT "RESPOND TO ALL QUESTIONS <Y/N>": PRINT 
PRINT "PRESS SPACE TO GO ON. " ? : GET A$: RETURN 



1 

I 

10 

20 

30 

40 

50 

60 

70 

so 

90 
100 
1 10 
1 20 
130 
140 
150 
1 60 
170 
1 80 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 



~ ‘ ' \ 

o^i6^ ori u n a S j 

REM THESE ARE THE MUSIS' UTILITIES 
REM USED TO DEATH IN THE REST OF THE 
REM PROGRAMS. IF YOU WANT TO USE THEM, 

REM YOU MAY EITHER 

REM 1) STRIP THEM OPF THE REST OF THE PROGRAMS 
REM 2) USE THEM HERE. 

REM 

REM ALL YOU HAVE TO DO TO USE THE THING IS 
REM TYPE SOMETHING LIKE THIS IN YOUR 
REM MASTERPIECE— 

REM 

REM 10 GO SUB 60040 

REM IT IS PREFERABLE THAT THE ABOVE LINE BE 
REM USED EARLY IN THE PROGRAM. IF YOU DO 
REM NOT DO THIS GOSUB , SOME AWFUL THINGS 
REM CAN HAPPEN . 

REM 

REM 1. YOUR DISK MAY BE GARBAGED. 

REM 2. YOUR TEMPER MAY BLOW A FUSE 
REM 3. THE REST OF YOUR PROGRAM MAY BE 
REM RUINED. 

REM 4. YOU MAY GIVE UP COMPUTER PROGRAMMING 

REM 5. THE WORLD MAY COME TO AN END 

REM 

REM OF THE ABOVE, OPTIONS 1, 2, AND 3 ARE MOST LIKELY. 
REM OPTION 1 HAS HAPPENED TO ME, SO BE CAREFUL! ! 

REM 

REM THE SUBROUTINES ARE AS FOLLOWS: 

GOSUB 60000: REM A RASBEFtRY --BRONX CHEER, WHATEVER 
REM GOSUB 60090: REM A RANDOM "BLIP" 

REM GOSUB 60140: REM SCALE NOTE PLAYER 



310 REM FuR I HE A B U PUKE 788, 3 : 
60060 CC = 2 (1 / 12) 

60070 POKE 789,96: 

60080 RETURN 
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60090 REM RANDOM "BLIP" 

60100 POKE 0, RND (1) * 50 + 50: POKE 1,8: CALL 771 
60110 RETURN 

60120 REM SCALE NOTE PLAYER 
60130 REM ASSUMES N=114 AS A=440 

60 1 40 ON N GOTO 60 1 50 , 60 1 60 , 60 170 , 60 1 80 , 60 1 90 , 60200 , 602 1 0 , 60220 , 60230 , 60 
240 , 60250 , 60260 , 60270 
60150 POKE 0, 192: GOTO 60310 

60160 POKE 0,181: GOTO 60310 

60170 POKE 0,171: GOTO 60310 

60180 POKE 0, 162: GOTO 60310 

60190 POKE 0, 153: GOTO 60310 

60200 POKE 0, 144: GOTO 60310 

60210 POKE 0, 136: GOTO 60310 

60220 POKE 0, 128: GOTO 60310 

60230 POKE 0,121*. GOTO 60310 

60240 POKE 0,114: GOTO 60310 

60250 POKE 0, 107: GOTO 60310 

60260 POKE 0,101: GOTO 60310 

60270 POKE 0,96: GOTO 60310 
60280 REM PLAY SCALE 

60290 FOR N = 1 TO 13: GOSUB 60140: NEXT 
60300 RETURN 

60310 POKE 1,L: CALL 771: RETURN 

3 
3 



10 TEXT : HOME : VTAB 5: PRINT "SCREEN PRINT": PRINT : PRINT "REFER TO M 
ANUAL BEFORE USING.": DEL 10,10 
63000 REM SCREEN DUMP 

63010 REM SLOT DEFAULTS TO 1 UNLESS SPECIFIED 
63020 REM BY TYPING "63100 SL= ( SLOT NUMBER" 

63030 REM IF YOU ARE USING SOME NON-INTELLEGENT 
63040 REM DEVICE SUCH AS THE "SIMPLE SERIAL 
63050 REM INTERFACE" DESCRIBED IN THE APPLE 
63060 REM REFERENCE MANUAL, TYPE 

63070 REM "63100 SL=0*. AD= (ADDRESS TO IN IT PRINTER)" 

63080 REM TYPE "GOSUB 63120" TO BEGIN DUMP." 

63090 REM REM REM REM REM REM REM REM REM REM 

63100 SL = 1 

63110 RETURN 

63120 REM ACCESS HERE 

63130 GOSUB 63100 

63140 IF SL > 0 THEN PR# SL: GOTO 63160 

63150 POKE 54, AD / 256: POKE 55,256 * ((AD / 256) - I NT (AD / 256)) + . 
5 

63160 REM NOW WE DUMP THE SCREEN 

63170 MARGIN = 3: REM NUMBER OF CR'S GENERATED 

63180 IF MA = 0 THEN 63200 

63190 FOR X = 1 TO MA: PRINT : NEXT 

63200 REM SET FOR SCREEN DUMP 

63210 FOR Y = 1 TO 24 

63220 FOR X = 1 TO 40 

63230 E = SCRN ( X- 1,2* (Y- 1)) + 16* SCRN (X-1,2*(Y-1)+1) 

63240 IF E < 64 THEN E = E + 128 

63250 IF E < 128 THEN E = E + 64 

63260 E = E - 128 

63270 PRINT CHR* (E)*, 

63280 NEXT : PRINT : NEXT 
63290 PR# 0 

63300 IF PEEK (994) + PEEK (1001) = 192 THEN CALL 1002 
63310 RETURN 



tze&r* Pf- 1 aj 
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# \ 



0 L = PEEK (175) + 



PEEK^ttTA-) 9 ~23E- ^-~653 “ ^ 



1 POKE 233 7 L / 256: POKE 232, 256 * (L / 256 - PEEK (233)) + .5 

2 GO SUB 60000 

3 HR* = " ABC ETC 1234567390": GOSUB 60150 

4 GOSUB 60150 

5 GOSUB 60150 

6 G 0 S IJ B 6 0 1 5 0 

7 POKE 34,20: HOME : PRINT "SEE MANUAL FOR INSTRUCTIONS" 

8 PRINT "RE-BOOT FOR MENU" 

10 END 

59999 END 

60000 REM THIS IS THE NEAT LITTLE ROUTINE 
60010 REM INITIALIZE IT WITH "GOSUB 60000" 

60020 REM FEED IT WITH HR* 

60030 REM ALSO WITH TENDER LOVING CARE 

60040 REM GOSUB 60000 

60050 REM HR*= "HI THERE!!!!!" 

60060 REM GOSUB 60200 

60070 REM PRINTS "HI THERE" ON THE SCREEN 

60080 REM HR* = "HI THERE V." WILL NOT PRINT A CARRIAGE RETURN 
6 0 0 90 H I M E M : 8 1 9 2 

60100 SCALE= l: ROT= 0: HCOLOR= 3 
60 1 1 0 HGR 



60 1 1 0 HGR 
60120 HP = l: REM 
60 1 30 HL = 1 : REM 
60140 RETURN 



32 TO THE LINE 
16 TO THE SCREEN 



60140 RE- 
60150 HK* 



RIGHT* ( HR* , 1 ) 



60 1 60 
60170 
60 1 80 



IF HK* = "•/." THEN HN7. = 1 : HR* = LEFT* (HR*, LEN (HR*) - 1) 
IF HK* C > "7." THEN HN7. = 0 



60180 FOR HX = 1 TO LEN (HR*) 
60190 HQ* = MID* (HR*,HX,1) 

60200 IF HQ* = " " THEN 60250 

60210 IF HQ* < "A" THEN 60310 

60220 IF HQ* > "Z" THEN HQ* = "?": 

60230 HN = ASC (HQ*) - 64 
60240 DRAW HN AT (HP - 1) * 10, (HL 



GOTO 60310 



1 ) * 9 



60250 HP = HP + is IF HP = 29 
60260 IF HN = 23 THEN HN = C 
60270 NEXT 

60280 IF NOT HK THEN HL = P 
60290 IF NOT HK THEN HP = 1 
60300 RETURN 

60310 REM HANDLE NUMBERS, 
60320 IF HQ* = " . " THEN HN = 
60330 IF HQ* = " ! " THEN HN = 
60340 IF HQ* < "0" OR HQ* > 
60345 IF HQ* = "0" THEN HN = 



29 THEN HP = 1 : HL 
0 



HL + 1 



HL + l: IF HL 

1 



24 THEN HL = 1 



THEN HN = 39: GOTO 60240 
' ! " THEN HN = 38: GOTO 60240 

' 0 " OR HQ* > "9" THEN HQ* = "?": GOTO 60310 
’0" THEN HN = 36: GOTO 60240 



60350 HN = ASC (HQ*) 



GOTO 60240 



0300- 


A9 


20 


LDA 


#*20 


0302- 


85 


01 


STA 


*01 


0304- 


A9 


00 


LDA 


#*00 


0306- 


85 


00 


STA 


*00 


0308- 


AO 


00 


LDY 


#*00 
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030 A— 


B1 00 


LDA 


( *00 ) , Y 


030C- 


49 7F 


EOR 


#*7F 


030E- 


9 1 00 


ST A 


( *00 ) , Y 


0310- 


E6 00 


INC 


*00 


0312- 


DO F6 


BNE 


*030A 


03 14- 


E6 01 


INC 


*01 


OS 16- 


A5 01 


LDA 


*0 1 


OS 18- 


C9 40 


CMP 


#*40 


031 A- 


DO EE 


BNE 


*030 A 


0310- 


60 


RTS 




OS 1D- 


4A 


LSR 




031E- 


4A 


LSR 




03 IF- 


09 CO 


- ORA 


#*co 


032 1 - 


85 3F 


ST A 


*3F 


0323- 


A9 5D 


LDA 


#*5D 











^/vutm u unu W 

10 HOME ^ J 

20 REM DISK MENU 
30 ONERR GOTO 50100 
40 DIM A* ( 40 ) , V* ( 40 ) 

50 REM IF YOU HAVE MORE PROGRAMS THAN 
60 REM THIS, USE THIS PROGRAM TWICE. 

70 CENTER = i: REM 1 WILL CENTER, 0 WILL LEFT JUSTIFY 
SO FOR X = 1 TO 5 



90 READ CO* ( X ) 

100 NEXT 

110 FOR G = 1 TO 40 
120 READ A* ( G ) 

130 READ V* ( G ) 

140 NEXT 

150 TEXT : HOME 

160 PRINT : PRINT 

170 PR# 0 

ISO FOR X = 1 TO 5 

190 IF LEN ( COT ( X ) ) = 0 THEN 220 
200 I F CE THEN N = 20 - LEN ( CO* ( X ) ) / 2 
210 IF CE AND LEN ( CO* ( X ) ) < 40 THEN HTAB N 
220 PRINT CO*(X) 

230 NEXT 
240 PRINT 

250 FOR X = 1 TO G - 1 
260 PRINT " "X" "A*^ 

270 PRINT " "V*(X) 

280 IF X / 5 = I NT (X / 5) THEN GOSUB 50000 
290 NEXT 

300 PRINT : PRINT 

310 POKE 34, PEEK (37): IF ZF THEN INPUT "": A*: GOTO 330 

320 PRINT "PRESS RETURN TO RESTART, OR": INPUT "ENTER BY NUMBER 

330 REM 

340 IF VAL (A*) = 0 THEN RUN 
350 A = VAL (A*) 



360 


IF A < 


= 0 THEN HOME 


: GOT 0 3 1 0 


370 


IF A = 


> G THEN HOME 


: GOTO 310 


380 


TEXT : 


HOME 




390 


VTAB 1 


‘** 1 * 




400 


PRINT 


"REWIND TAPE AND 


PRESS SPACE 


40 1 


PRINT 






405 


PRINT 


"PRESS PLAY BUTTON ON TAPE" 


4 1 0 


PRINT 


"NOW LOOKING FOR 


" A* ( A ) " . " 



; A* 
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430 GOSUB 40000 

440 IF A = 1 THEN LOAD 

445 PR I NT " NOW SK I PP I NG "AtH)"." 

450 GOSUB 40040 

460 GOSUB 40000 

470 PRINT "NOW SKIPPING MENU" 

480 GOSUB 40040 



490 N 


= 2 






500 N1 


= A - 


N 




510 G 


OSUB 40000 




520 IF N1 = 


0 THEN LOAD 




530 PRINT " 


NOW SK I PP I NG " A$ (N) " . " 




540 GOSUB 40040 




550 N 


= N + 


1: GOTO 500 




40000 


REM 


FIND THE LEADER 




400 1 0 


GOSUB 


45000 




40020 


IF TT 


= 0 THEN 40010 




40030 


RETURN 




40040 


REM 


WAIT THROUGH A PROGRAM 




40050 


GOSUB 


45000 




40060 


IF TT 


> 1 THEN 40050 




45000 


T 1 = 


PEEK (49248) > 127: TT = 0 




450 1 0 


FOR X 


= 1 TO 20 




45020 


TN = 


PEEK (49248) > 127 




45030 


IF TN 


< > T 1 THEN TT = TT + 1*. T1 = 


TN 


45040 


NEXT 


: RETURN 




45999 


STOP 






50000 


IF X 


= G ~ 1 OR G -1C = 10 THEN 


RETURN 


500 1 0 


PRINT 






50020 


VTAB 


22: POKE 34, PEEK (37) 




50030 


PRINT 


"PRESS RETURN FOR MORE , OR": 


INPUT " 


50040 


A = VAL ( A$ ) 




50050 


IF A 


< > 0 THEN 330 




50060 


ZF = 0 






50070 


POKE 


34,7: HOME : POKE 34,9: HOME 




50080 


RETURN 




50090 


STOP 






50100 


IF PEEK (222) =42 THEN 150 




50110 


IF PEEK (222) = 255 THEN 150 




50120 


PRINT 


"CUTE — REALLY CUTE": RIJN 




60000 


DATA 


APPLE BARREL SOFTWARE 




600 1 0 


DATA 


GOOD TO THE LAST BYTE 




60020 


DATA 


COPYRIGHT 1979 CDS CORF*. 




60030 


DATA 






60040 


DATA 


MASTER MENU 




60050 


REM 


HERE ON OUT WE HAVE TITLES 




60060 


DATA 


APPLESAUCE CAKE, (GRAPHICS INTR DATA 


60 1 80 


DATA 






60 1 90 


DATA 


PACIFIER 




60200 


DATA 






602 1 0 


DATA 


LUNA C T OR L 




60220 


DATA 






60230 


DATA 


DYNAMITE 




60240 


DATA 






60250 


DATA 


SHAPE BUILDER 




60260 


DATA 






60270 


DATA 


SCREEN PRINT 




60280 


DATA 






60290 


DATA 


PLOT 




60300 


DATA 






603 1 0 


DATA 


MUSIC UTILITY 




60320 


DATA 






60330 


DATA 


ALIEN 





ENTER BY NUMBER ' 



CHECKBOOK 



' ; A* 
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AVAILABLE FROM: 



